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PREFACE 


This  effort  was  conducted  by  The  University  of  Kentucky  under  the 
sponsorship  of  the  Rome  Air  Development  Center  Post-Doctoral  Progarra  for 
RADC’s  Compatibility  Branch.  Mr.  Jim  Brodock  of  RADC  was  the  task  project 
engineer  and  provided  overall  technical  direction  and  guliance. 

The  RADC  Post-Doctoral  Program  is  a cooperative  venture  between  RADC 
and  some  sixty-five  universities  eligible  to  participate  in  the  program. 
Syracuse  University  (Department  of  Electrical  Engineering),  Purdue  University 
(School  of  Electrical  Engineering),  Georgia  Institute  of  Technology  (School 
of  Electrical  Engineering),  and  State  University  of  New  York  at  Buffalo 
(Department  of  Electrical  Engineering)  act  as  prime  contractor  schools  with 
other  schools  participating  via  sub-contracts  with  the  prime  shcools.  The 
U.S.  Air  Force  Academy  (Department  of  Electrical  Engineering),  Air  Force 
Institute  of  Technology  (Department  of  Electrical  Engineering),  and  the 
NaT  al  Post  Graduate  School  (Department  of  Electrical  Engineering)  also 
participate  in  the  program. 

The  Fost-Doctoral  Program  i rovides  an  opportunity  for  faculty  at 
participating  universities  to  spend  up  to  one  year  full  time  on  exploratory 
development  and  problem-solving  efforts  with  the  post-doctorals  splitting 
their  time  between  the  customer  location  and  their  educational  institutions. 
The  program  is  totally  customer-funded  with  current  projects  being  undertaken 
for  Rome  Air  Development  Center  (RADC),  Space  and  Missile  Systems  Organization 
(SAMSO) , Aeronautical  Systems  Division  USD),  Electronics  Systems  Division 
(FSD) , Air  Force  Avionics  Laboratory  (AFAL),  Foreign  Technology  Division 
(FTD\  Air  Force  Weapons  Laboratory  (AFWL) , Armament  Development  and  Test 
Center  (ADTC),  Air  Force  Communications  Service  (AFCS),  Aerospace  Defense 
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Command  (ADC),  Hq  USAF,  Defense  Communications  Agency  (DCA),  Navy,  Army, 
Aerospace  Medicai  Division  (AMD),  and  Federal  Aviation  Administration  (FAA). 

Further  information  about  the  RADC  Post-Doctoral  Program  can  be 
obtained  from  Mr.  Jacob  Scherer,  RADC/RBC,  Griffiss  AFB,  NY,  13441,  telephone 
Autovon  587-2543,  commercial  (3.15)  330-2543. 

The  author  of  this  report  is  Clayton  R.  Paul.  He  received  the  BSEE 
degree  from  The  Citadel  (1963),  the  MSEE  degree  from  Georgia  Institute  of 
Technology  (1964),  and  the  Ph.D.  degree  from  Purdue  University  (1970).  He 
is  currently  an  Associate  Professor  with  the  Department  of  Electrical 
Engineering,  University  of  Kentucky,  Lexington,  Kentucky  40506. 

The  author  wishes  to  acknowledge  the  capable  efforts  of  Ms.  Donna  Toon 


in  typing  this  manuscript. 
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I.  INTRODUCTION 


This  report  is  the  seventh  in  a seven  volume  series  documenting  the 
Application  of  Multiconductor  Transmission  Line  Theory  to  the  Prediction  of 
Cable  Coupling.  The  purpose  of  this  report  is  to  implement  the  analytical 
techniques  described  in  Volume  I of  this  series  [1]  in  the  form  of  digital 
computer  programs. 

Crosstalk  or  electromagnetic  coupling  between  wires  (cylindrical  con- 
ductors) in  densely  packed  cable  bundles  can  be  a serious  contributor  to  the 
degradation  in  performance  of  modern  electronic  systems.  A recently  developed 
digital  computer  program,  IEMCAP,  provides  a general  analysis  capability  for 
determining  overall  electromagnetic  compatibility  of  aircraft,  ground  and 
spacecraft  systems  [3],  The  computer  programs  described  in  this  report  are 
intended  to  provide  a supplement  to  the  analysis  capabilities  of  IEMCAP  by 
providing  a more  fine-grained  analysis  of  wire-coupled  interference. 

IEMCAP  is  intended  to  be  used  to  model  all  recognizable  coupling  paths 
on  aircraft,  ground  and  spacecraft  systems.  By  virtue  of  the  large  size  and 
complexity  of  many  of  these  systems,  detailed  modeling  of  the  coupling  paths 
is  not  feasible  in  a program  such  as  IEMCAP.  To  avoid  excessive  computer 
run  times,  the  models  of  the  various  coupling  paths  used  in  IEMCAP  are 
generally  quite  simple  and  represent  bounds  on  the  coupling.  Consequently, 
the  predictions  of  IEMCAP  are  generally  somewhat  conservative.  However, 
once  a potential  wire-coupled  interference  problem  is  pinpointed  by  IEMCAP, 
the  computer  programs  described  in  this  report  can,  in  many  cases,  be  used 
to  determine  if  an  actual  interference  situation  exists  and  the  precise 
level  of  the  interference. 

Four  programs  are  describad:  XTALK,  XTALK2,  FLATPAK,  and  FLATPAK2. 
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XTALK  analyzes  three  configurations  of  transmission  lines:  (1)  (n+1)  bare 
wires,  (2)  n bare  wires  above  an  infinite  ground  plane,  and  (3)  n wires 
within  a cylindrical  shield  which  is  filled  with  a homogeneous  dielectric.  All 
conductors  are  considered  to  be  perfect  conductors.  XTALK2  analyzes  the 
same  three  structural  configurations  as  XTALK  except  that  the  conductors  are 
considered  to  be  imperfect  conductors.  FLATPAK  analyzes  (n+1)  wire  ribbon 
cables.  All  wires  are  assumed  to  be  perfect  conductors.  FLATPAK2  analyzes 
the  same  configuration  as  FLATPAK  except  that  the  wires  are  considered  to  be 
imperfect  conductors.  In  all  of  the  above  programs,  the  medium  (media) 
surrounding  the  conductors  Is  assumed  to  be  lossless.  Sinusoidal,  steady- 
state  excitation  of  the  line  is  considered,  i.e.,  the  transient  solution  is 
not  directly  obtained.  Comparison  of  predicted  to  experimental  results  are 
obtained  using  these  programs  in  Volume  III  and  Volume  IV  of  this  series 
[4,5]. 

All  programs  are  written  in  FORTRAN  IV  Language  and  are  double  precision. 
Changes  in  the  programs  to  convert  them  to  single  precision  arithmetic  will 
be  indicated.  All  programs  have  been  implemented  on  an  IBM  370/165  computer 
at  The  University  of  Kentucky  using  the  Fortran  IV,  G level  compiler  and 
should  be  easily  implemented  on  other  computers. 

It  is,  of  course,  difficult  if  not  impossible  to  write  a general  computer 
program  which  will  address  all  types  of  transmission  line  structures  which 
the  user  may  wish  to  investigate.  The  four  programs  included  in  this  report 
form  an  initial  library  of  analysis  capabilities  for  wire-coupxed  inter- 
ference problems.  Other  programs  which  address  more  specific  structures 
and  structures  not  considered  by  these  four  programs  will  be  documented  in 

other  volumes  of  this  series  as  well  as  in  future  RADC  publications  as  they 
are  developed. 
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II,  FORMULATION  OF  THE  MULTI CONDUCTOR 


TRANSMISSION  LINE  (MTL)  EQUATIONS 

In  this  chapter,  the  distributed  parameter,  multiconductor  transmission 
line  (MTL)  model  will  be  described  and  the  programmed  equations  will  be  de- 
rived, This  model  is  exact  in  the  sense  that  interactions  between  all 
conductors  in  the  transmission  line  are  considered,  and  the  distributed 
,-c»rameter  representation  (assuming  the  TEM  mode  or  "quasi-TEM"  mode  of 
propagation  on  the  line)  is  used.  The  line  is  assumed  to  be  uniform  in  the 
sense  that  all  conductors  are  parallel  to  each  other  and  there  is  no  variation 
in  the  cross  section?  of  the  conductors  or  the  surrounding  media  along  the 
line. 

2,1  The  Multiconductor  Transmission  Line  (MTL)  Model 

The  MTL  model  is  described  in  detail  in  Volume  I of  this  series  [1] 
and  in  reference  [2],  In  this  section,  a brief  review  of  the  MTL  model  will 
be  given  and  the  reader  should  consult  Volume  I [1]  or  reference  [2]  for 
further  details. 

If  the  line  is  immersed  in  a homogeneous  medium,  e.g.,  bare  wires  in 
free  space,  the  furidamental  mode  of  propagation  is  the  TEM  (Transverse 
Electro-Magnetic)  mode.  If  the  line  is  immersed  in  an  inhomogeneous  medium, 
e.g.,  wires  with  cylindrical  dielectric  insulations  surrounded  by  free  space, 
the  fundamental  mode  of  propagation  is  taken  to  be  the  "quasi-TEM"  mode. 

The  essential  difference  in  these  two  cases  is  as  follows.  For  lines  in  a 
homogeneous  medium  the  TEM  mode  assumption  is  legitimate.  For  lines  in  an 
inhomogeneous  medium,  the  TEM  mode  cannot  exist  except  in  the  limiting  case 
of  zero  frequency  (DC).  However,  for  the  inhomogeneous  medium  case,  the 
assumption  is  made  that  the  electric  and  magnetic  fields  are  almost  trans- 
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w, 

verse  to  the  direction  of  propagation,  i.e.,  the  mode  of  propagation  is  al- 
most TEM  or  "quasi-TEM". 

With  the  assumption  of  the  TEM  mode  or  "quasi-TEM"  mode  of  propagation, 
line  voltages  and  currents  may  be  defined.  Consider  a general  (n  + 1)  con- 
ductor, uniform  transmission  line  shown  in  Figure  2-1,  The  (n  + l)st  or 
zero-th  conductor  is  the  reference  conductor  for  the  line  voltages.  For 
sinusoidal,  ^teady-state  excitation  of  the  line,  the  line  voltages, 7/^ (x,t) , 
(with  respect  to  the  reference,  the  zero-th,  conductor)  and  line  currents. 


4 


(x,t)  are 


l/±(x,t)  = V^x)  e^Wt 

^(x.t)  = Ii(x)  e 


,jtot 

(2-la) 

jot 

(2-lb) 

for  i = 1,  , n where  V^Cx)  and  I^(x)  are  the  complex,  phasor  line 

voltages  and  currents  and  to  is  the  radian  frequency  of  excitation  of  the 
line,  to  = 2rrf.  The  current  in  the  reference  conductor  satifies 


n 


4,(x,t)  = -£  4)  (x, t) 

i-1 


n 


In(x)  = - Z I,  (x) 
u i=l 


(2-2a) 

(2— 2b ) 


The  MTL  equations  can  be  derived  from  the  per-unit-length  equivalent 
circuit  in  Figure  2-2  and  are  a set  of  2n,  complex-valued,  first  order, 
ordinary  differential  equations 


d fv(x)1  _ [JU  + R 

dxL|(X)J  " L-  n~nJ  j_~(XJ  \}s 


(x) 

(x) 


(2-3) 


A matrix  M with  m rows  and  p columns  is  said  to  be  m\p  and  the  element 
in  the  i-th  row  and  j-th  column  is  designated  by  [M] . . with  i = 1,  , m 
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and  j = 1,  , p.  An  n\l  vector  is  denoted  with  a bar,  e.g.,  V,  with 

the  entry  in  the  i-th  row  denoted  by  [VL  = V..  The  matrix  0 is  the  mvp 

zero  matrix  with  zeros  in  every  position,  i.e.,  [^Op]^  = 0 for  i = 1,  , 

m and  j = 1,  , p.  The  complex-valued  phasor  line  voltages  with  respect 

to  the  reference  conductor  (the  zero-th  conductor),  V^x),  and  line  currents, 
Ii(x),  are  given  by  [VCx)]^  = V^x)  and  [I(x)]i  = Ii(x). 

The  nxn  complex-valued,  symmetric  matrices,  Z and  Y,  are  the  per-unit- 
length  impedance  and  admittance  matrices  of  the  line,  respectively.  Since 
the  line  is  assumed  to  be  uniform,  these  matrices  are  independent  of  x. 

These  per-unit-length  matrices  are  separable  as 

Z = R + jwL  + jwL  (2-4a) 

■V  'V  0 A/C  A/ 

Y = G + jo)C  (2— 4b) 

»v  •/  M 

where  the  nxn  real,  symmetric  matrices  R , L , L,  G,  C are  the  per-unit- 

-v*  C ~C  <v  <v 

length  conductor  resistance,  conductor  internal  inductance,  external  induc- 
tance, conductance  and  capacitance  matrices,  respectively.  The  entries  in 
these  matrices  may  be  straightforwardly  obtained  :n  terms  of  the  elements  of 
the  per-unit-length  equivalent  circuit  in  Figure  2-2  as 


[R  ] = r + r , [R  ] = r 

~c  ii  ct  c0  ^ij  c0 


(2-5a) 


L . , - 1 + 1 , L = A 

~c.  ii  c cn  ~c  i 3 cn 

1 U i/j  0 


(2-5b) 


^ii  ~ *1  + ^0  " 2mi0’  ^ij  = £0  + mij 

i*i 


mi0  " mj0  (2’5c) 


[2]ii  8i0  + S 8ij’  [23ij  " _8ij 


(2— 5d ) 


i*3 
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[~]ii  ~ CiO  + l cij*  [£Uj  ~ -Cij * 

Ss 


(2-5e) 


The  nxl  column  vectors,  Vg(x)  and  Ig(x)  contain  per-unit-length  equiv- 
alent voltage  and  current  sources,  fV  (x)]  = V (x)  and  [I  (x)].  = I (x), 

“S  1 — S 1 

which  are  included  to  represent  the  effects  of  the  spectral  components  of 

incident  electromagnetic  field  sources  which  illuminate  the  line.  These 

entries  are  complex-valued  functions  of  frequency  and  position,  x,  along  the 

line.  In  this  report,  no  external  incident  fields  are  considered  and  these 

sources  are  set  equal  to  zero,  i.e.,  V (x)  - 0 and  I (x)  = 0 . 

° n-1  n-1 

The  solution  to  (2-3)  is 


-Kx.Xq) 


= *<x,x0) 


w 

i(x0) 


V(x0) 

^x0* 


+ r $(x,x) 

^ v . i 


Vx) 


Vs(x) 

I (x) 
-s  ' 


(2-6) 


where  4>(x,Xq)  is  the  2nx2n  chain  parameter  matrix  (or  state  transition  matrix) 
and  Xq  is  some  arbitrary  position  along  the  line  x > x^.  The  chain  parameter 


matrix  can  be  partitioned  as 


!<x’xo}  = 


hi  (x*xo)  *12  (x 


^21  (X*X.))  $22  (x’x0 


»x0) 

•xol 


(2-7) 


where  $ (x,xp)  are  nxn  for  i,  j=l,  2.  Thus  (2-6)  can  be  written  as 
~ij  u 

A 

V(x)  = $i;L(x,x0)  V(Xq)  + $i2(x,xQ)  -^X0^  + V-sM  (2-8a) 


I(x)  - £21(x,xq)  V(Xq)  + $22^X,X0^  i^x0'>  + Is^ 


The  entries  $ (x,x.)  are  given  by 

~ij  u 


(2— 8b) 


$ (x,x  ) = 1/2  Y_1  T (el(x“x0)  + e“Y(x“xo^)  T_1  Y ' (2-9a) 

~-Li.  U ~ ~ *v  «v 

$19(x,x  ) = -1/2  Y_1  T y(eI(x“V  - e"I(x"V)  T-1  (2^9b) 

!21<X’V  - -1/2  T (J(x-x0>  - e-^-V)  Y_1  T_1  Y (2-9c> 

M »W  <V  »W  ^ iV 

- 1/2  T (e^'V  + e^(x-X0))  T’1  (2-9d) 

vZZ  U <V  <M*  <N» 

where  eI^X  X0^  is  an  nxn  diagonal  matrix  with  [el^x  X0^]^  = e^X  X0^  and 

[eI^X  V]4J  = 0 for  i,  j*l, , n and  i^j.  The  matrix  T is  an  nxn, 

complex-valued  matrix  which  diagonalizes  the  matrix  product  YZ  as 

MV 


Y Z T 

^ M M 


2 

Y 


(2-10) 


2 2 2 2 
where  y is  an  nyn  diagonal  matrix  with  [Y  ].,  53  y.  and  [y  ] =0  for  i, 

M M 11  1 M 

j=l,  , n and  i^j . The  nxn  characteristic  impedance  matrix,  Z , is  given 

by 


& 


y_1  t y t”1 


z T y 

M M M 


(2-11) 


The  transmission  line  is  of  length  ot  with  termination  networks  at  x = 0 
and  at  x = £ as  shown  in  Fig.  2-3.  For  generality,  the  termination  networks 
are  considered  to  be  in  the  form  of  linear  n-ports  and  are  characterizable 
by  "Generalized  Thevenin  Equivalents"  as 


V(0)  = VQ  - ZQ  1(0)  (2-12a) 

V(j£)  = V^+  Zf±(X)  (2— 12b) 

where  Vq  and  y^are  nyl  complex-valued  vectors  of  equivalent,  open-circuit, 
port  excitation  voltages  (with  respect  to  the  reference  conductor)  and  Zn 
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and  Z.are  nxn  symmetric,  complex-valued  port  impedance  matrices. 

As  an  alternate  characterization,  (2-12)  may  be  written  as  "Generalized 
Norton  Equivalents"  by  multiplying  (2-12a)  on  the  left  by  Zn  ^ and  (2-12b) 

■wU 

on  the  left  by  zjt  and  rearranging  as 


1(0)  = IQ  - Yfl  V(0) 


(2-13a) 


1(2)  = -I£+  YfV(£) 


(2-13b) 


where  1^  and  are  equivalent,  short-circuit,  port  excitation  current  sources, 


-1 


-1 


The  nxn  port  admittance  matrices  Yft  and  Y y are  given  by  Y_  = Z_  and  Y.=  Zf 
where  the  inverse  of  an  nxn  matrix  M is  denoted  by  M ^ and  Iq  = Y^  V^,  I^= 
Yjt-Jt*  T^ese  Port  admittance  matrices  can  be  found  by  treating  the  line 
currents  1(0)  or  I(£)  as  independent  sources  and  writing  the  node  voltage 
equations  for  the  termination  networks.  The  transmission  line  voltages,  V(0) 
or  V(jC),  will  comprise  subsets  of  the  node  voltages  of  the  termimation  net- 
works. The  additional  node  voltages  can  be  eliminated  from  the  node  voltage 
equations  describing  the  networks  to  yield  (2-13) . If  the  termination  net- 
works at  x = 0 and  x consist  only  of  admittances  between  the  i-th  and  j-th 
wires,  Y.  and  Y+  , respectively,  and  between  the  i-th  wire  and  the  re- 

ij  ij 

ference  conductor,  Y and  Y/  , respectively,  then  the  entries  in  Yn  and  Yj 

Ujj  „ d-.j  _ 

ii  n ii  n n 


become  [YQ)i±  = YQ 


+ E Y 


0, 


[Yn3 


ii  j-1  tj 


-0Jlj  -0  • ‘tfii  ■ + i,  v. 


= -Y, 


ii 


J-1  iJ 


l-fl ij  = ~Y£  for  i»  j=1» * n and  i ^ J • 

With  x = £and  Xq  = 0 in  (2-8),  one  can  straightforwardly  obtain  using 

the"Generalized  Thevenin  Equivalent"  characterization  of  the  termination 

2 

networks  given  in  (2-12) 


In  (2-8a)  with  x=/,x  =0  substitute  (2-12a)  for  V(0)  and  (2-12b)  for  V(jf). 
Then  substitute  1(f)  from  (2— 8b ) with  x=/,xf)=0  into  the  result  and  rearrange 
into  the  form  in  (2-14a).  Substitute  V(0)  from  (2-12a)  Into  (2— 8b ) and  re- 
arrange to  yield  (2-14b). 


(2-14a) 


[y22  «>  - ^21  <*>  5o  - *12  <*>  + til  tt)  So1  *(0)  - 

[!n  «>  - ?r*2i  (*)J  - v i (*>  - khU) 

l(i)  = *21  (<)  V0  + [*22(f)  - *21  (/)  Z0]  1(0)  + Ig  <*)  (2- 14b) 

where  $C£,0)  = $(*).  V(x)  and  I(x)  can  be  obtained  for  any  x,  0 < x < iC , 
from  (2-8)  with  1(0)  from  the  solution  of  (2-14a)  and  V(0)  determined  from 
(2-12a).  Generally,  we  are  only  interested  in  the  terminal  voltages  and  cur- 
rents, V(0),  V(jO»  1(0),  I Of),  The  terminal  currents,  1(0)  and  IOC),  can  be 
obtained  from  (2-14)  and  the  terminal  voltages,  V(0)  and  V(;0,  can  be  ob- 
tained from  (2-12).  Here  one  only  needs  to  solve  n equations  in  n unknowns 
(aquation  2-14a)). 

The  submatrices  of  the  chain  parameter  matrix  in  (2-7)  satisfy 
~1J 

carta. n fundamental  identities,  [1,2].  These  identities  can  be  used  to 
formulate  (2-14a)  in  an  alternate  form  [1,2]: 

(,?21  «>  If  tl2  <*>  (!21  «>  5o  - t22  «»  - in1  I<°>  ' 

$21  ^ ~.(+  *$21  ^ ~X~  til  $21  ^ -0  ' $21  ^ ’ 

[V  (*)  - Z.  , (*)  ] (2-15) 

where  1 is  the  i.yj  identity  matrix  with  [1  ]..  = 1 and  [1  ],.  =0  for  i, 

~n  ~n  ii  ~n  ij  * 

j=l, , n and  i f4  j.  Not*.-:  that  the  formulations  in  (2-15)  and  (2-14b) 

require  computation  of  only  two  of  the  four  chain  parameter  submatrices, 
4>21(39  and  <J>2200. 

As  an  alternate  formulation,  the  above  equations  can  be  written  in  terms 
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of  the  "Generalised  Norton  Equivalent"  representation  of  the  termination 
networks  given  in  (2-13).  Rather  than  rederiving  the  above  equations  it  is 
much  simpler  to  note  the  direct  similarity  of  the  Norton  equivalent  re- 
presentation in  (2-13)  and  the  Thevenin  equivalent  representation  in  (2-12). 
By  noting  the  analogous  variables  in  (2-13)  and  (2-12)  and  observing  the 
form  of  (2-8),  we  may  simply  make  certain  substitutions  of  these  analogous 
variables  in  (2-14)  and  (2-15)  as  shown  in  Table  1.  The  result  is 


W*  - 5t*12<»  Io  - *21  «>  + *22 «>  V ?<0)  ' 

(2-16a) 

[!22(*>  - I*!l2(*^  h + h + 

V(*)  = J12(t)  IQ  + [*n<*)  - *12«)  Y0]  V(0)  + Vg«)  (2-16b) 

^12^  ?11^^~12^  Io  “ ~ U 

" Jl2^  -X+  [~12(;f)  lt~  Jll**^  ~12(;°  ^0  (2-16c) 

- !i2w  [is  (*}  -ui  <*>  ] 


2.2  The  Equations  to  Be  Programmed 

The  equations  for  I(j£)  and  V(£)  are  given  in  (2-14b)  and  (2-l6b),  re- 
spectively. Either  (2-14a)  or  (2-15)  could  be  used  for  determining  1(0)  and 
either  (2-16a)  or  (2-16c)  could  be  used  for  determining  V(0).  However,  (2-14a) 
and  (2-16a)  will  be  selected  for  determining  1(0)  and  V(0),  respectively. 

* A 

Since  no  external  incident  fields  are  considered,  Vs(X)  and  Ig(^)  in  (2-14), 

A A 

(2-15)  and  (2-16)  will  be  zero,  i.e.,  V (X)  = I (X)  = 01 . 

—s  — s n~  l 

Certain  modifications  to  these  equations  will  be  made  to  produce  the 
final  equations.  The  matrix  chain  parameters  given  in  (2-9)  for  a line  of 
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TABLE  1 

Analogous  variables  in  the  Generalized  Thevenin  Equivalent  (2-12)  and 
Generalized  Norton  Equivalent  (2-13)  representation  of  the  termination  net- 
works. The  analogous  variables  are  substituted  in  equations  (2-14)  and  (2-15) 
to  obtain  equations  (2-16). 


Generalized  Thevenin 
Equivalent  (2-12) 


Generalized  Norton 
Equivalent  (2-13) 


-I  (JO 


hi  «> 

*12  «> 

~21^ 

*22^ 

vsW 

is 


?22(*> 
~21 W 

Suw 

A 


total  length  3C(xq  = 0,  x = %)  become 

*„«>  = Y"1  t e+  t'1  y 

A/ll  A/  A/  A/  a;  <V 

(2-17a) 

■ -r1 1 1 f f1 

(2-17b) 

* A,  (<)  = -T  E“  y"1  T-1Y 

^41  A»  A»  a;  a/  a/ 

(2-17c) 

$„(*)  = T E+  T-1 

A>44  A<  A»  A/ 

(2-17d) 

where  the  nxn  diagonal  matrices  E+  and  E are  given  by 

«v 

E+  - - (e~*  + e“^) 

Ai  4 A/ 

(2-l8a) 

E-  - i < J*  - e‘«) 

•V  4 "V  A< 

(2-18b) 

Substituting  (2-17)  into  (2-14a)  and  (2-14b)  yields,  for  the  Thevenin 
Equivalent  representation  of  the  termination  networks 


[ZjT  E*  T*"1  + ZyT  E~  Y_1  T^1  Y Z (2-19a) 

«V  A »W  ^ <V  •vU 

+ Y"1  T Y E“  T_1  + Y*"1  T E+  T"1  Y Z ] 1(0) 

>v  »v  •«*  <v  ^ 

- [Y_1  T E+  T'1  Y + Z.IE"  y"1  T"1  Y)  V - Vy 

*V  A/  *w  <V  M 'v  <v  "U  “* 

IQ?)  = -T  E~  V"1  t”1  Y Vn  (2-1 9b) 

■"  ‘V  "V  <V  <V  *"U 

+ [T  E+  T-1  + T e"  y"1  T-1  Y Z ] 1(0) 

<v  v ^ <v  *v  <vu  *“ 

Similarly,  substituting  (2-17)  into  (2-16a)  and  (2-16b)  yields,  for  the  Norton 
Equivalent  representation  of  the  termination  networks, 


[Y  .Y-1  T E+  T"1  Y + Y.Y"1  T Y E"  t”1  Y 

X M <V  ^ M fk  fw  <v  Ai  <v 

+ T E"  Y_1  T"1  Y + T E+  T"1  Yj  V (0) 

A/  A»  A>  A<  A<  A/  A/  A/  U 

■ it  t f 1 + % r 1 1 1 r fli  io  + 1 x 

v«)  - -y"1  Ilf  t'1  I + [y'1  t e+  t'1  y + y'1  t y e' 

A<  A<  A<  A»  A/  “U  A/  A/  «w  «V  A*  A/  A/  A*  A< 


(2-20a) 


1 (2-20b) 

T Y„]V(0) 

A/  NU  ™ 


-16- 


The  medium  surrounding  all  conductors  is  assumed  throughout  this  report 
to  be  lossless.  Therefore  the  per-unit-length  conductance  matrix,  G, which 

A* 

represents  these  losses  in  (2-4b)  is  zero,  i.e,,  G = Therefore  the  per- 

unit-length  admittance  matrix  becomes 

Y = j u)  C (2-21) 

A/  ~ 

The  per-unit-length  impedance  matrix  is 

Z = R + j idL  + j o)  L U-22) 

where  R and  L are  zero  matrices,  i.e.,  0 , when  perfect  conductors  are 

~c  ~c  n~n’ 

assumed. 

To  reduce  the  number  of  matrix  multiplications,  the  above  equations  will 
be  placed  in  an  alternate  form.  For  the  Norton  Equivalent  representation  in 
(2-20) , define 


* -1  -1 

Y j - T Y*  C T 

•V  M ~ A A/  A# 

(2-23a) 

* -1  -1 
lot  l 

(2— 23b ) 

V*(jf)  = T-1  c V(t) 

A*  A/  “ 

(2— 23c) 

V*(0)  » t"1  C V(0) 

" Arf  A/  “ 

(2— 23d) 

* -1 

(2-23e) 

I*  = t"1  I 

=o  i ±0 

(2— 23f ) 

Y 3 j w A 

(2-23g) 

Equations  (2-20)  can  then  be  written  as 

[Y*  E+  + Y*  A E“  Y*  + E~  A"1  + E+  Y*]  V*(0)  (2-24a) 

n J.  <v  *y  N Ap>U  <v  'v  “ 

- If  1 Jo  + ^ 
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(2-24b) 


V*(jC)  = -A  E"  I*  + [E+  + A E"  Y*]  V*(0) 

“ A;  " U A/  A#  *V»\J  — 

and  the  actual  termination  voltages  can  be  determined  by  solving  (2-24)  for 
V (0)  and  V*(i)  and  using  (2-23c)  and  ( 2— 23d)  to  obtain 

V(0)  = C_1  T V*(0)  (2-25a) 

»V  A<  " 

V(*)  = c”1  T V*  (*)  (2— 25b ) 

*"  «V  A*  " 

These  equations  are  summarized  in  Table  2. 

Similarly,  equations  (2-19)  for  the  Thevenin  Equivalent  representation 
of  the  terminal  networks  can  be  reduced  to  an  equivalent  form  by  defining 


* -1 

Z j * T 1 C Z j T 

* -1 

(2-26a) 

Z = T 1 C Z T 

A^U  ^ A#  A»U  ~ 

(2— 26b) 

1*09  = t_1  ICO 

“ A*  •“ 

* -1 

(2-26c) 

I (0)  * T 1(0) 

“ AA  ™ 

(2— 26d) 

* -1 

Vj»  T C Vj 

**■  i A/  A<  " A. 

(2-26e) 

-o  - f1  S Eo 

(2-26f ) 

Y ■ j w A 

(2-26g) 

Equations  (2-19)  can  then  be  written  as 

[Zy  E+  + Z *j  E"  A-1  Z*  + A E"  + E+  Z*]  I*(0)  (2-27a) 

r + * - . -1,  * * 

-IE  +5<S  i I’o-^ 

I*(<>  « -E"  A"1  V*  + [E+  + E~  A”1  Z*]  I*(0)  (2-27b) 

“ A/  a;  — U ^ -V  <v(J  “ 


and  the  actual  termination  currents  can  be  obtained  by  solving  (2-27)  for 
I (0)  and  I (jf)  and  using  (2-26c)  and  (2-26d'»  to  obtain 
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(2-28a) 


1(0)  = T I*(0) 

I(sO  = T I*(jC)  (2-28b) 

These  equations  are  summarized  in  Table  3. 

There  are  two  reasons  for  using  the  equivalent  representations  in  Table 
2 and  Table  3 rather  than  the  representations  in  (2-20)  and  (2-19).  First 
of  all,  note  the  direct  similarity  of  the  equations  in  Table  2 and  Table  3. 

The  only  differences  (other  than  symbols)  between  equations  (1)  and  (2)  in 
Table  2 and  the  corresponding  equations  (1)  and  (2)  in  Table  3 is  that  A used 

1 A 

in  Table  2 corresponds  to  A in  Table  3,  and  I^in  Table  2 corresponds  to 

* -1  - - -1 
-V  yin  Table  3.  (Note  that  since  A,  A and  E are  diagonal,  E A = 

""  A/  M -V 

A E and  E A = A E .)  Therefore  we  may  form  the  Norton  Equivalent  equations 
in  the  programs  and  not  need  to  vrite  a duplicate  set  for  the  Thevenin 
Equivalent  representations. 

The  second  reason  for  using  the  representations  in  Table  2 and  Table  3 

is  that  if  the  termination  networks  are  purely  resistive,  i.e.,  Z_,  Zf,  Y 

~u 

and  Y^are  real,  and  the  transformation  matrix,  T,  is  frequency  independent, 

i.e.,  perfect  conductors  are  assumed  (as  in  XTALK  and  FLATPAK),  then  the 

matrix  multiplications  as  well  as  the  inversion  of  T to  form  T ^ needed  to 
£ & £ £ 

obtain  Yn,  Yj,  Zn,  Z.*need  only  be  performed  once  and  need  not  be  changed  as 

the  frequency  is  changed.  Only  equations  (1)  and  (2)  in  Table  2 and  Table  3 

need  be  reformulated  for  each  frequency.  This  can  represent  a significant 

savings  in  computation  time  when  the  line  response  for  many  frequencies  is 

3 

desired  (as  it  usually  is)  since  n operations  (multiplications  or  divisions) 
are  required  to  multiply  two  "full"  nxn  matrices  which  is  the  minimum  number 
of  operations  required  to  obtain  the  inverse  of  a general  nxnmatrix  [1], 
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TABLE  2 


Programmed  Equations  for  the  Generalized 
Norton  Equivalent  Representation 


(1) 

, * + * - * 
•I*!  ? ?o 

+ E~  A' 

-1  + E+ 

y*  ] v*(0) 

= IE+  + yJ  a e' 

- * 

1 -xo  + 

* 

H 

(2) 

V*0O  = -A  E"  I*  + [E+  + A 
^ ^ +* 

y*(o> 

(3) 

T'1  Y Z T = T~X{ ja)C[R  + jail.  + jwL]}  T = y 

<W  <V  « <V  *4  <W  «*C  <V  C >w  >w  <V 

(4) 

Y = ja)  A 

(5) 

1(0)  - i„  - Y0  V(0) 

9 

I GO 

- -U+ 

(6) 

* -1  -1 

Io  = I I 

9 

* 

!*  = 

T-1  V/C-1  t 

(7) 

* -1 

X0  = ? X0 

9 

* 

hm 

(8) 

E+  = \ (ej*  + e“JX) 

*v  4 M « 

9 

E " 

| (.«-  eVA 

(9) 

V(0)  = c_1  T V*(0) 

9 

v(jc) 

- c”1  t v*(j0 

•v 
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TABLE  3 


Note 


Programmed  Equations  for  the  Generalized 
Thevenin  Equivalent  Representation 

(1)  [zj  E+  + Z^E"  A_1  Z*  + A E“  + E+  Z*]  I*(0) 


+ * - 
= [E  + Z - F. 

-1  * 

! i h 

* 

rlt 

(2) 

I*(<)  = -E"  A_1  V*  + [E+  + E"a" 

.1  * * 
z0]  I (0) 

(3) 

t'1  Y Z I = T-1  {jmC[Rc 

+ ja)Lc 

+ jioL] } T = Y2 

(4) 

Y = jo)  A 

(5) 

V(°)  - v0  - Z0  1(0) 

9 

vCO  = v^+  z£  IOC) 

(6) 

,z0  ■ f 1 S Yo  I 

9 

* -l 

Zj,  = T C Z £ T 

(7) 

Ho  ' f 1 S Ho 

9 

* —1 

Vy=T  CV/ 

(8) 

E+  - i (ej*  + e\^ 

<V  “ <v 

9 

E"  - | (e.^-  fjA 

(9) 

1(0)  = T I*(0) 

9 

ne  - t i*(ii 

* * * * 

V (0)  = v0  - Z0  I (0) 

9 

V*(j£)  = V*f+  Z*I*0O 

where: 

V*(0)  = T_1  C V(0) 

9 

V* (£)  = T_1c  V(tf) 
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2.3  Formulation  of  the  Terminal  Network  Equations 

The  previous  formulation  requires  that  one  determine  the  entries  in 
the  nxn  matrices  Z^,  Z^,  and  Y^,  and  the  nxl  vectors,  Vg,  Vj,  1^  and  I^, 
in  the  Thevenin  and  Norton  Equivalent  representations  of  the  terminal  net- 
works in  (2-12)  and  (2-13),  respectively.  In  this  section,  some  examples 
will  be  given  to  aid  in  determining  these  quantities. 

To  illustrate  this,  four  examples  will  be  used.  The  first  example. 
Example  1,  is  shown  in  Figure  2-4a.  In  this  example,  there  is  no  cross- 
coupling between  the  port  terminals  within  the  termination  networks,  i.e., 
at  each  end  of  the  line,  each  endpoint  of  a wire  is  terminated  directly  to 
the  reference  conductor. and  is  not  physically  connected  to  the  endpoints  of 
other  wires  at  the  same  end  of  the  line.  Writing  the  following  equations: 


Vx(0)  - 1 - 1 Ix  (0)  (2-29a) 
V2(0)  = -10  I2  (0)  (2-29b) 
Vx«)  = 103  Ix  (*)  (2-29c) 

V2tt)  = 104  I2  (*)  + 1 (2-29d) 


and  comparing  these  equations  to  the  Thevenin  Equivalent  representation 


where 


V(0)  - yQ  - ZQ  1(0) 

v (t)  = Vjf  + Z^I«) 


v(0) 

1(0) 


p 

r i 

v.  (0) 

V.  (*) 

X 

V(Jf)  = 

i 

-V2(0)- 

.V*>: 

“1,(0)' 

1 00  = 

ijW 

.V0)- 

(2-30a) 

(2-30b) 


(2-31) 
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one  can  readily  identify 


*0  = 


r*  i 

r 

i 

zn  = 

i 

0 

0 

.0 

0 

10 

— 

U U 

r i 

0 

ltm 

io3  0 1 

L 

,i. 

L 0 

10  J 

(2-32) 


w 


Similarly,  one  can  convert  the  termination  networks  to  a Norton  equi 
valent  representation  in  Figure  2-4b  and  obtain  (Example  2) 


I2(0)  =1-1  Vx(0)  (2-33a 
I2(0)  = -10'1  V2(0)  (2— 33b 
IjOC)  = 10“3  V1«)  (2-33c! 
I2tt)  = -10"4  + 10"4  V2(t)  (2-33d; 


Comparing  these  equations  to  the  Norton  Equivalent  representation 


1(0)  - IQ  “ Y0  V(0)  (2-34a! 

IO)  * "It  + Y V(r)  (2-34b; 


where  1(0),  I(£),  V(0),  V(jf)  are  given  in  (2-31),  one  can  readily  identify 
for  Example  2 


1 

1 0 

0 

ii 

o 

tw  J 

o io-1 

— \ r 

o 

1 L 

o 

1 

(jO 

o 

io”4 

It 

( 

O 
« — 1 

o 

t 

(2-35) 


Note  that 


~ Vff 

> 

I 


Y = z'1 
;o  to 

(2— 36b) 

It = It  It 

(2-36c) 

lt  = It 

(2-36d) 

Note  also  that  as  far  as  the  network  terminal  characteristics  are  concerned, 
the  termination  networks  in  Figure  2-4a  are  the  same  as  those  in  Figure  2~4b. 

The  third  and  fourth  examples.  Example  3 and  Example  4,  are  shown  in 
Figure  2-5.  As  far  as  terminal  characteristics  are  concerned,  the  termina- 
tions in  Figure  2-5a  and  in  Figure  2-5b  are  the  same  as  shown  by  the  following 
First, write  the  Norton  Equivalent  characterization  for  the  terminations  in 
Figure  2-5b  as  (treat  the  terminal  currents  as  independent  sources  and  write 
the  node-voltage  circuit  equations  of  the  networks) 


l(t) 


l-t 


U 


M 1 
H-* 

/■N 

o 

1 

.6  -.4 

vi<0> 

Lvo). 

0 

— - 

Ur 

5o 

* 

-.4  .6 

l -J 

-V0). 

U— V— — - 

1(0) 

Y 

~0 

Ho 

y*) 

. 

= 

- * 

0 

l _ 

+ 

.6  -.2 

-.2  . 4 _ 

vx(rf) 

„ v2(*>_ 

(2-37a) 


(2-37b) 


Similarly,  from  Figure  2-5a  write  the  Thevenin  Equivalent  characterization 
as  (treat  the  terminal  voltages  as  independent  sources  and  write  the  loop 
current  circuit  equations  of  the  networks) 


vx(0) 

— ■ 

3 

v,(0) 

2 

Ho 


3 

2 


b 


^(0) 

Ly°>j 


1(0) 


(2-38a) 
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(b)  Example  4 


Fig.  2-5,  Example  termination  networks,  (cross-coupling) 


|v1«) 

V«, 


Note  that 


l±(Z) 

12(X) 


(2-38b) 


Y = Z'1 

;o  :o 


ltmU 


I = Y V 

±o  :o-o 


(2-39d) 


(2-3%) 


(2-39c) 


(2-39d) 


and  as  far  as  the  terminal  characteristics  of  the  networks  are  concerned, 
the  termination  networks  in  Figure  2-5a  are  the  same  as  those  in  Figure  2~5b. 

The  above  examples  will  serve  a dual  purpose.  Each  of  the  computer 
programs  will  be  run  for  each  of  the  above  four  examples  for  the  same  trans- 
mission line  structure.  Typical  solution  printouts  will  be  shown  for  these 
results.  This  will  serve  as  a partial  check  on  the  proper  functioning  of 
the  programs  since  the  corresponding  terminal  voltages  (V^(0),  V^CO),  V^(j£), 

V 2 (t))  for  Example  1 should  equal  those  for  Example  2,  Similarly  the  cor- 
responding terminal  voltages  for  Example  3 should  equal  those  for  Example 


As  can  be  seen  from  the  above  examples,  if  there  is  no  cross-coupling 
within  the  termination  networks,  then  formulation  of  the  entries  in 
Vq,  V^,  Zq  and  Z^  or  Iq,  Ij,  Yq  and  Y^  is  particularly  simple.  The  situation 
in  which  there  is  no  cross-coupling  within  the  termination  networks  is 


generally  the  problem  of  interest  in  wire-coupled  interference  calculations. 


X 


However,  it  was  felt  that  the  more  general  case  of  allowing  cross-coupling 
within  the  terminal  networks  be  included  in  the  capabilities  of  the  programs. 

To  save  computer  time,  one  has  four  options  for  inputting  the  terminal 
data:  OPTIONS  11,  12,  21,  or  22.  The  first  digit  in  each  number  indicates 
to  each  program  that  the  terminal  characterization  chosen  is  either  the 
Thevenin  Equivalent  (1)  or  Norton  Equivalent  (2).  The  second  digit  indicates 
to  the  program  whether  the  admittance  (Y^  and  Yj)  or  impedance  (Z^  and  Z £) 
matrices  are  diagonal  (1),  i.e.,  no  cross-coupling,  or  full  (2),  i.e.,  cross- 
coupling. For  example,  OPTION  11  indicates  Thevenin  Equivalent,  diagonal 
impedance  matrices;  OPTION  22  indicates  Norton  Equivalent,  full  admittance 
matrices;  OPTION  12  indicates  Thevenin  Equivalent,  full  impedance  matrices, 

and  OPTION  21  indicates  Norton  Equivalent,  diagonal  admittance  matrices. 

•* 

This  saves  computer  time  and  user  effort  in  inputting  the  data.  For 

example,  in  cases  where  Zg(or  Z^,  or  or  Yj)  must  be  multiplied  by  another 

2 

nxn  matrix  such  as  in  T 7 if  Z_  is  diagonal  one  only  needs  n multiplications 

*>»  "<U  «*  u 

3 

to  form  this  product  whereas  if  Z is  full,  n multiplications  are  needed  to 
form  the  product.  The  programs  are  written  to  take  advantage  of  this.  In 
addition,  if  the  terminal  admittance  or  impedance  matrices  are  in  fact  dia- 
gonal, then  the  user  need  only  input  the  entries  on  the  main  diagonal  and  is 
saved  the  drudgery  of  inputting  the  remaining  zero  entries.  The  specific  de- 
tails for  inputting  this  termination  network  data  will  be  given  in  Chapter 
IV,  the  User's  Manual. 

2.4  Common  Impedance  Coupling  and  the  Calculation  of  Conductor  Self  Impedances 
Programs  XTALK  and  FLATPAK  assume  that  all  conductors  are  perfect  con- 
ductors. Programs  XTALK2  and  FLATPAK2,  however,  do  not  assume  perfect  con- 
ductors and  these  programs  include  the  per-unit-length  conductor  resistance 
and  internal  inductance,  the  items  r„  and  Si  , respectively,  in  Figure  2-2 

and  (2-5)  as  well  as  the  reference  conductor  resistance,  r , and 
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inductance,  l . 

c0 

The  reason  for  writing  two  separate  programs  to  consider  the  same 

transmission  line  structure  such  as  XTALK  and  XTALK2  is  that  the  inclusion 

of  conductor  losses  in  the  transmission  line  solution  requires  a longer 

computer  run  time  and  more  array  storage  than  when  perfect  conductors  are 

assumed.  This  can  be  seen  in  Tables  2 and  3 in  that  the  transformation 

matrix  T will  be  frequency  dependent  (and  complex)  when  losses  are  included, 

whereas  T will  be  frequency  independent  (and  real)  when  perfect  conductors 

are  assumed,  i.e.,  R = L = 0 . Therefore  when  perfect  conductors  are 

*.c  ~c  n^n  * 

assumed  (in  XTALK  and  FLATPAK) , one  need  only  compute  T once  per  problem  and 
the  same  T can  be  used  throughout  the  frequency  iteration.  When  lossy 
conductors  are  considered  (in  XTALK2  and  FLATPAK2),  one  must  recompute  T at 
each  frequency  in  addition  to  reforming  at  each  frequency  those  matrix  pro- 
ducts involving  T in  Table  2 and  Table  3. 

The  primary  effect  of  imperfect  conductors  is  to  introduce  common 
impedance  coup  Ling.  Consider  a transmission  line  in  which  there  is  no  cross- 
coupling within  the  termination  networks.  In  this  case,  clearly  the  voltages 
induced  via  electromagnetic  field  coupling  at  the  ends  of  a "receptor" 
circuit  consisting  of  one  conductor  (wire)  and  the  reference  conductor  due  to 
a "generator"  circuit  consisting  of  another  wire  and  the  reference  conductor 
will  approach  zero  as  the  frequency  of  excitation  is  reduced  to  zero.  However, 
the  reference  conductor  impedance  can  couple  a signal  into  the  receptor 
circuit  even  at  D-C  and  this  is  usually  termed  common  impedance  coupling. 

To  illustrate  this,  consider  Figure  2-6.  In  Figure  2-6a,  a three- 
conductor  transmission  line  is  shown.  The  reference  conductor  has  a certain 
total  impedance,  Zq,  which  may  be  considerably  smaller  in  magnitude  than 
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(a) 


Fig.  2-6.  Illustration  of  common  impedance  coupling. 


Zqr  or  w Consequently,  the  current  in  the  generator  wire  at  frequencies 
approaching  D-C  may  be  determined  as 


I„  = 


G Z0G  + Z*G 


(2-40) 


The  major  portion  of  this  current  will  pass  through  the  reference  conductor 
producing  a voltage  drop  across  Z^.  This  results  in  received  voltages 


ZjfR 

LZiR  + ZGR 

\7  — 

r zor 

V — 

OR 

> + Z0R 

zo  tg 


zo  tg 


(2-41a) 

(2— 41b) 


Although  this  portion  of  the  total  received  voltage  may  be  "small"  it 
may  nevertheless  be  larger  than  the  contribution  due  to  electromagnetic 
field  coupling  as  shown  in  Figure  2-6b,  Consequently,  this  common  impedance 
coupling  generates  a "floor"  of  induced  voltage  where  a solution  assuming 
perfect  conductors  would  indicate  a perhaps  negligably  small  received  voltage 
at  the  lower  frequencies. 

The  frequency  at  which  this  common  impedance  coupling  becomes  significant 
depends  on  many  factors  some  of  which  are  line  geometry  (which  affects  the 
level  of  the  electromagnetic  portion  of  the  coupling)  and  type  of  reference 
conductor.  Reference  conductors  consisting  of  a // 36  gauge  wire  or  a large, 
thick  ground  plane  would  certainly  not  produce  the  same  level  of  common 
impedance  coupling. 

The  above  separation  and  superposition  of  the  two  counling  mechanisms 
is  only  correct  when  one  dominates  the  other  by  a considerable  amount.  To 
obtain  a quantitatively  correct  answer,  one  must  include  the  conductor  self 
impedances  directly  in  the  transmission  line  solution  and  this  is  done  in 
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XTALK2  and  FLATPAK2 . 


The  transmission  lines  considered  by  all  programs  in  this  report  consist 
of  n wires  (cylindrical  conductors)  and  a reference  conductor.  In  XTALK2, 
there  are  three  choices  for  the  reference  conductor;  (1)  a wire,  (2)  a 
finite  ground  plane  and  (3)  an  overall  cylindrical  shield  surrounding  the 
n wires.  When  the  reference  conductor  is  a finite  ground  plane,  the  user 
simply  inputs  the  per-unit-length  resistance  and  self  inductance  of  the 
ground  plane.  Thus  there  are  two  cases  remaining  to  be  considered. 

The  per-unit-length  self  impedance  of  a solid  cylinder  of  radius  r^ 
shown  in  Figure  2-7a  is  given  by  the  following.  Define 


Arfp  a 
v 


(2-42a) 


2tt  /of  x 10 


(2— 42b) 


Mv  -7 

lo  ■ sT  ■ -5  * 10 


(2~42c) 


where  a is  the  conductor  conductivity,  f is  the  frequency  and  is  the  per- 
meability of  the  metal  which  is  assumed  to  be  that  of  free  space  (pv=4ttx10  ^ ) , 
The  quantity  <S  is  the  conventional  skin  depth  factor.  The  equations  for 
the  per-unit-length  self  impedance  of  a solid  cylindrical  conductor  in- 
cluding skin  effect  are  obtained  from  [6],  The  equations  used  in  the  com- 
puter programs  approximate  the  actual  equations  given  in  reference  [6], 
pp.  78-80.  The  programmed  equations  are 


-32- 


(I)  r < 6 

w - 

r = ohms/meter  (2-43a) 

l = henrys /meter  (2-4 3b) 

(II)  6 < r <36 

w 

1 r 

r = -r  ( -—  + 3)  r,.  ohms/meter  (2-44a) 

4 6 0 

r 

£ = [1.15  - .15  (■—)]  i henrys/meter  (2-44b) 

oo 


(III)  r > 36 
w - 

r 

r = ttt  r ohms/meter  (2-45a) 

2o  o 

2 x 

i = — henrys/meter  (2-45b) 

w 

These  equations  are  used  to  generate  the  per-unit-length  self  impedances  of 
the  transmission  line  wires  ( z ^ = r+jwil)  and  the  reference  conductor  when 
the  reference  conductor  is  also  a wire  (Zq  = r+jw£).  They  are  stored  with- 
in the  program  codes  for  XTALK2  and  FLATPAK2  and  the  user  needs  to  input 
only  the  physical  dimensions  of  the  wires  and  their  conductivity. 

For  the  purposes  of  computing  these  wire  self  impedances,  the  wires  are 
considered  to  be  stranded.  The  user  inputs  the  radius  of  each  strand  (in 
mils)  and  the  number  of  strands  in  each  wire.  The  program  then  computes 
the  per-unit-length  self  impedance  of  each  strand  and  determines  the  net 
wire  self  impedance  by  dividing  this  result  by  the  number  of  strands  (the 
net  resistance  of  the  wire  is  considered  to  be  the  result  of  all  strands  of 
the  wire  in  parallel).  (All  strands  in  a wire  are  considered  to  be  identical) 
The  equations  for  the  per-unit-length  self  impedance  of  the  reference 
conductor  when  the  reference  conductor  is  a thin  walled, overall,  cylindrical 


-34- 


shield  shown  in  Figure  2-7b  are  taken  from  reference  [7],  pp.  301-303  and 

include  skin  effect.  The  equations  used  in  the  computer  programs  are 

approximations  of  the  actual  equations.  The  skin  depth,  6,  is  given  in 

(2-42a).  Denote  the  interior  radius  of  the  cylinder  by  r and  its  wall 

s 

thickness  by  t.  The  equations  become  [7] 


1 

r0  irat(2r  +t) 
s 

(I)  t < .56 

r = r^  ohms/meter 

toil  = ,4(~)  ohms /me  ter 
o u 

(II)  t > 36 

r = t — — z — ohms /meter 
2irr  a5 
s 

io£  = r ohms  /meter 


(2-46) 

(2-47a) 
(2— 47b) 

(2-48a) 

(2-48b) 


(III)  .56  < t < 36 

b 1 

r 2irr  a5 
s 


0)1 


1 

2irr  a6 
s 


sinh(-|^-)  + sin(-^j-) 


cosh(-|^-) 


cos  (|^) 


] 


sinh(~) 


sin(~) 


cosh(~) 


cos(^~). 


ohms /meter 


ohms /meter 


(2-49a) 


(2— 49b) 


The  per-unit-length  self  impedance  of  the  shield  is  given  by  Zq  = r+ju>£. 
These  equations  are  stored  in  the  XTALK2  program  code.  The  user  only  needs 
to  input  the  shield  interior  radius,  the  shield  thickness  and  the  con- 


ductivity of  the  shield 


2 . 5 Computation  of  the  Per-Unit- Length  Inductance  and  Capacitance  Matrices 
All  of  the  formulations  shown  in  Tables  2 and  3 require  the  computation 
of  the  n%n,  real,  symmetric,  per-unit-length  transmission  line  inductance 
and  capacitance  matrices,  L and  C,  respectively.  The  computation  of  these 

w ** 

matrices  will  be  discussed  in  this  section. 

2.5.-1  Transmission  Lines  Consisting  of  Perfect  Conductors  in  a Lossless, 
Homogeneous  Medium,  XTALK 

This  section  considers  (n+1)  conductor  transmission  lines  consisting  of 
(n+1)  perfect  conductors  in  a lossless,  homogeneous  medium.  The  lines 
consist  of  n wires  and  three  choices  of  reference  conductor  (the  zero-th 
conductor)  cross  sections  of  which  are  shown  in  Figure  2-8.  Computer  program 
XTALK  considers  these  cases. 

The  per-unit-length  inductance  and  capacitance  matrices  for  lines  in 
a homogeneous  medium  are  related  by  [1] 

L C = pel  (2-50) 

. *w  *v  n 

where  p and  e are  the  permeability  and  permittivity  of  the  surrounding 
homogeneous  medium.  The  per-unit-length  capacitance  matrix  can  be  found 
from  a knowledge  of  the  per-unit-length  inductance  matrix  fro»'.  (2-50)  as 

C = peL"1  (2-51) 

•>*  •* 

A logical  choice  for  the  surrounding  medium  in  Figure  2-8(a)  and  2-8 (b) 
would  be  free  space  with  permeability  pv  = 4irxl0  7 henrys/meter  and  per- 
mittivity ev  = (l/36ir)xl0~9  farads/meter.  However,  for  all  structure  types, 
the  homogeneous  medium  may  be  characterized,  for  generality,  by  a relative 
dielectric  constant  (permittivity)  of  e and  a relative  permeability  of  Pr- 

(Although  the  permeability  of  typical  dielectrics  is  that  of  free  space,  p^, 
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the  programs  XTALK  and  XTALK2  allow  for  the  more  general  case.) 

For  the  case  of  lossless  conductors  in  a lossless,  homogeneous  medium, 
the  nxn  characteristic  impedance  matrix,  Zc>  in  (2-11)  is  related  to  the 
per-unit-length  inductance  matrix  by  [1] 


?C  = ^ = 


ve  p 
r r 


(2-52) 


where  v - l//ye  is  the  velocity  of  light  in  the  surrounding  medium.  The  velocity 
of  light  in  free  space,  vq,  to  7 digits  is  2.997925  x 108  meters/second. 

The  equations  used  in  the  programs  for  the  entries  in  the  per-unit- 
length  transmission  line  matrix  are  derived  in  Volume  1 of  this  series  [1] 
and  are  valid  for  "large"  conductor  separations.  Generally  this  means  that 
the  smallest  ratio  of  wire  separation  to  wire  radius  should  be  no  smaller 
than  approximately  5.  A more  complete  discussion  of  this  is  found  in 
Volume  I. 

When  the  reference  conductor  is  a wire  as  shown  in  Figure  2-8 (a),  the 

entries  in  the  per-unit-length  transmission  line  matrix  are  given  by  [1] 
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(2-53a) 


(2-53b) 


for  i,  j =1 , , n and  i ^ j where  d^  is  the  center-to-center  separation 

between  the  i-th  wire  and'  the  reference  conductor,  d^  is  the  center-to- 
center  separation  between  the  i-th  and  j-th  wires,  and  rwi  and  are  the 
radii  of  the  i-th  and  reference  wires,  respectively. 

When  the  reference  conductor  is  an  infinite  ground  plane  as  shown  in 
Figure  2-8 (b),  the  entries  in  the  per-unit-length  inductance  matrix  are 
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given  by  [1] 
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(2-54b) 


ij 


for  i,  j=l,  . ..,  n and  i ^ j where  h_^  is  the  height  of  the  i-th  wire  above 
the  ground  plane. 

When  the  reference  conductor  is  an  overall  cylindrical  shield  as 
shown  in  Figure  2-8 (c),  the  entries  in  the  per-unit-length  inductance  matrix 
are  given  by  [1] 
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(2-55a) 


} (2— 55b) 


for  i,  j=l,  . ..,  n and  i ^ j where  r is  the  interior  radius  of  the  shield, 

s 

^ is  the  separation  of  the  i-th  wire  from  the  center  of  the  shield  and  0^ 
is  the  angular  separation  between  the  i-th  and  j-th  wires 

For  the  case  of  lossless  conductors  in  a lossless,  homogeneous  medium, 
the  equations  for  the  terminal  voltages  and  currents  in  Table  2 and  Table  3 
can  be  further  simplified.  Obviously,  the  transformation  matrix,  T,  which 
diagonalizes  the  matrix  product  Y Z can  be  taken  to  be  simply  the  identity 
matrix,  i.e.,  T = 1^,  as  is  clear  from  the  fact  that  for  this  case  Z = jcoL, 
Y = jo)C  and 


Y Z = 


-a)  L C 
2 ~ ~ 


(2-56) 


— U) 
2 


1 


-39- 


Also,  the  nxn  diagonal  matrix.  A,  in  Tables  2 and  3 becomes 


A 


1 

v 


1 

~n 


(2-57) 


Therefore  the  equations  for  the  terminal  voltages,  V(0)  and  V($,  for 
the  Norton  Equivalent  representation  of  the  terminal  networks  in  Table  2 
simplify  to  [1]  (see  equations  (2-19)  and  (2-20)). 

[cos (Bi)  (Yt+  Yq}  + j sin(ftt)  (Y^  ZQ  YQ  + z"1}]  V(0) 

(2-58a) 

= [cos(BO  ln  + j sin(BO  Y ^ ZQ]  IQ  + I£ 

V(X)  = -j  sin(eX)  Zc  IQ  + [cos(B*)ln  + j sin(0*)  ZQ  YQ]  V(0)  (2-58b) 


where  8 is  the  phase  constant 


8 = u)/v  (2-59) 

and  the  characteristic  impedance  matrix  Z is  given  in  (2-52). 

**  w 

Similarly  the  equations  for  the  terminal  currents,  1(0)  and  I(£),  for 
the  Thevenin  Equivalent  representation  in  Table  3 simplify  to 

[cos  (80  {Z^+  ZQ}  +j  sin  (BO  {Z^.  z"1  ZQ  + Z£  }]  1(0) 

(2-60a) 

= -V^  + [cos (SO  ln  + j sin (80  Z^  Z~X  ] VQ 

1(0  = -j  sin(BO  Z"1  yQ  + [cos (60  ln  + j sin  (BO  Z~x  ZQ]  I(0)(2-60b) 

The  terminal  voltages  can  be  obtained  from  the  solution  of  (2-60)  for  the 

terminal  currents,  1(0)  and  I (si),  with  the  equations  for  the  terminal 
networks 

V (0)  = V0  - ZQ  1(0)  (2-61a) 
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V(jC)  = + Zt  IOC)  (2-61b) 

2.5.2  Transmission  Lines  Consisting  of  Imperfect  (Lossy)  Conductors  in 
a Lossless,  Homogeneous  Medium.  XTALK2 
This  section  considers  the  (n+1)  conductor  transmission  lines  considered 
in  the  previous  section  and  shown  in  Figure  2-8.  However,  the  transmission 
line  conductors  are  considered  to  be  lossy.  Computer  program  XTALK2  con- 
siders these  cases. 

The  per-unit-length  inductance  and  capacitance  matrices  are  computed 
as  in  the  previous  section  and  satisfy  the  relation  in  (2-50).  The  entries 
in  L are  given  in  (2-53),  (2-54)  and  (2-55).  The  per-unit-length  admittance 
matrix  is  given  by 

Y = jwC  - j -j  L"1  (2-62) 

The  per-unit-length  impedance  matrix  is  given  by 


Z = R + ju>  L +jwL 

**  <yC  C . 


(2-63) 


where  the  entries  in  and  L£  are  due  to  imperfect  conductors.  The 
entries  in  Rc  and  are  given  in  (2-5)  and  these  matrices  can  be  separated 
as  (1] 


R + jto  L = (r  + ) U + Zn 

-c  -c  <=0  V -n 


(2-64) 


where  U is  the  nyn  unit  matrix  with  one's  in  every  position,  i.e.,  [U  ].  =1, 
~n  „n  il 

and  Z is  a diagonal  matrix  with 

«v 


^B1!!  = rCl  + J“*Cl 


(2-65) 


and  [Z^]^  = 0 for  j=l» > n end  i t j . The  calculation  of  the  wire 
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self  impedances,  r + j toil  , and  the  reference  conductor  self  impedance, 
ci  ci 

r + ju)£  , is  discussed  in  section  2.4. 

C0  C0 

2.5.3  Transmission  Lines  Consisting  of  Perfect  Conductors  in  a Lossless, 
Inhomogeneous  Medium,  FLATPAK 

This  section  considers  (n+1)  conductor  transmission  lines  consisting 
of  (n+1)  perfect  conductors  in  a lossless,  inhomogeneous  medium.  For 
example,  dielectric  insulations  surrounding  wires  result  in  an  inhomogeneous 
medium  (dielectric  insulation  and  the  surrounding  free  space).  The  computer 
program  FLATPAK  considers  a specific  case  of  flatpack  or  ribbon  cables. 

A ribbon  cable  consists  of  (n+1)  identical  wires  with  identical  cylindrical 
dielectric  insulations  bonded  together  in  a linear  array  as  shown  in  Figure 
2-9. 


In  this  case,  the  relationship  in  (2-50)  relating  the  per-unit-length 
inductance  and  cap icitance  matrices  no  longer  holds.  Clearly  the  surrounding 
medium  does  not  influence  the  per-unit-length  inductance  matrix  since  the 
surrounding  medium  is  considered  to  be  homogeneous  in  its  permeability 
characteristic,  Therefore,  one  may  compute  the  per-unit-length  capac- 

itance matrix  with  the  wire  dielectric  insulations  removed,  denoted  by 
Cq,  and  determine  L through  (2-50)  as 


L = u e C"1 
v v ^0 


(2-66) 


Therefore,  one  needs  to  compute  the  per-unit-length  capacitance  matrix 
with  and  without  the  wire  dielectric  insulations  present.  A digital 
computer  program,  GETCAP,  has  bean  written  to  compute  the  per-unit-length 
capacitance  matrices  of  ribbon  cables.  This  program  is  described  in 
detail  in  Volume  II  of  this  series  [8], 
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Reference  Wire 


The  per-unit-length  impedance  and  admittance  matrices  become 


Z = ju)L  (2-67a) 

% «v 

Y = jwC  (2-67b) 


The  transformation  matrix,  T,  which  diagonalizes  the  matrix  product  Y Z 
must  therefore  diagonalize  the  product  C L as 

T-1  Y Z T = -u)2  f1  C L T (2-68) 


In  addition,  it  can  be  shown  that  [1] 


(2-69) 


where  T1"  is  the  transpose  of  T.  A digital  computer  subroutine  NROOT  (which 
uses  subroutine  EIGEN)  is  used  to  accomplish  this  reduction  and  is  dis- 
cussed in  a later  section. 


2.5.4  Transmission  Lines  Consisting  of  Imperfect  (Lossy)  Conductors  in  a 
Lossless,  Inhomogeneous  Medium,  FLATPAK2 

This  section  considers  (n+1)  conductor  transmission  lines  consisting 
of  (n+1)  lossy  conductors  in  a lossless,  inhomogeneous  medium.  The  program 
ELATPAK2  considers  a particular  case  of  flatpack  or  ribbon  cables  discussed 
in  the  previous  section. 

The  per-unit-length  capacitance  and  inductance  matrices  are  computed 
assuming  perfect  conductors  and  can  be  obtained  with  GETCAP  as  described 
in  the  previous  section. 

The  self  impedances  of  the  wires  are  identical  since  the  wires  in  the 
ribbon  cable  are  typically  identical.  Therefore  the  pre-unit-length 
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III.  PROGRAM  CODE  DESCRIPTIONS 


In  this  chapter,  the  content  of  each  program  will  be  described  by  card. 
(Each  program  is  labeled  in  columns  72-80  with  the  card  number.)  All  pro- 
grams were  written  in  double  precision  arithmetic  and  the  program  listings 
are  given  in  Appendix  A - Appendix  D.  A table  is  provided  with  each  listing 
which  shows  the  changes  which  are  required  to  convert  each  program  to  single 

precision  arithmetic.  Listings  of  two  of  the  required  subroutines,  NROOT  and 
EIGEN,  are  provided  in  Appendix  E - Appendix  F.  The  remaining  required  sub- 
routines, LEQT1C  and  EIGCCj are  a part  of  the  IMSL  (International  Mathematical 
and  Statistical  Library)  package  [9].  Appropriate  alternate  subroutines  can  be 
substituted  for  LEQT1C  and  EIGCC  if  the  IMSL  package  is  not  available  on  the 

user's  system. 

3.1  Program  XTALK 

A listing  of  XTALK  is  given  in  Appendix  A. 

Cards  001  through  047  contain  general  comments  concerning  the  applic- 
ability of  the  program.  This  format  will  be  followed  in  the  other  programs. 

Cards  048  through  053  are  comment  cards  pointing  out  that  all  arrays 
must  be  properly  dimensioned  for  each  problem  before  using  the  program. 

Cards  054  through  059  dimension  the  arrays  and  declare  variable  types. 
Card  060  gives  the  value  of  it  and  the  speed  of  light  in  free  space. 

Cards  061  through  065  define  the  complex  numbers  l+j0,0+j 0,and  0+jl  as 
well  as  other  constants. 

Cards  071through  118  read  and  print  an  initial  portion  of  the  input  data. 
Cards  123  through  170  read  and  print  the  line  dimensions  and  compute  the 

entries  in  the  characteristic  impedance  matrix.  The  entries  in  the  character- 
istic impedance  matrix,  Z c,  are  related  to  the  per-unit-length  inductance 
matrix  for  the  three  structure  types  given  in  (2-53),  (2-54)  and  (2-55)  by 
Z = v L.  Cards  132  through  139  compute  the  main  diagonal  entries  of  Zp. 

Cards  141  through  170  compute  the  off-diagonal  entries.  The  nxl  complex 
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arrays  VI  and  V2  are  used  to  temporarily  store  the  and  coordinates 
or  the  r^  and  0^  coordinates  of  the  wires  in  the  real  parts  of  the  arrays 
(see  Figure  4-1,  Figure  4-2,  Figure  4-3).  The  nxn  complex  array  Ml  is  used 
to  temporarily  store  the  characteristic  impedance  matrix  in  the  real  parts. 
Although  the  actual  quantities  stored  are  real,  it  was  decided  to  use  the 
real  parts  of  these  complex  arrays  to  store  these  quantities  rather  than 
define  additional  real  arrays.  VI,  V2  and  Ml  will  be  needed  (as  complex 
arrays)  later. 

Cards  175  through  181  compute  the  inverse  of  the  characteristic  impedance 
matrix  which  is  temporarily  stored  in  the  real  part  of  the  nyn  complex  array 
M2.  M2  will  be  needed  (as  a complex  array)  later.  The  matrix  inverse  is 
computed  with  subroutine  LEQT1C  which  is  described  in  section  3.5. 

Cards  190  through  226  read  and  print  the  entries  in  the  terminal  im- 
pedance characterizations.  These  matrix  characterizations  are  given  in 
(2-30)  for  the  Thevenin  Equivalent  characterization  and  in  (2-34)  for  the 
Norton  Equivalent  characterization.  The  nxl  complex  arrays  10  and  IL  store 
the  entries  in  1(0)  and  1(f),  respectively,  for  the  Norton  Equivalent  in 
(2-34)  or  V(0)  and  V(f),  respectively,  for  the  Thevenin  Equivalent  ir 
(2-30).  The  i$n  complex  arrays  Y0  and  YL  store  the  entries  in  Y^  and  Yj, 
respectively,  for  the  Norton  Equivalent  in  (2-34)  or  Zq  andjj£,  respectively, 
for  the  Thevenin  Equivalent  in  (2-30). 

Cardo  231  through  291  contain  certain  matrix  and  vector  multiplications 
which  are  independent  of  frequency.  If  one  requests  the  analysis  to  be  done 
at  more  than  one  frequency  (such  as  in  computing  the  frequency  response  of 
the  line),  then  these  time-consuming  multiplications  need  be  computed  only 
for  the  first  frequency  and  need  not  be  recomputed  for  the  additional  fre- 
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quencies.  To  explain  these  cards,  consider  the  similarity  of  the  forms  of 
the  equations  for  the  Norton  Equivalent  characterization  given  in  (2-58)  and 
the  Thevenin  Equivalent  characterization  given  in  (2-60).  The  analogous 
variables  in  these  two  equations  are  summarized  as: 


(2-58) 

(2-60) 

If 

It 

Io 

!o 

Z-1 

lc 

5c 

z"1 

Ic 

5c 
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Ml 

Yo 

li 
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T\ 

V(0) 

1(0) 

>1 

!(*) 

Therefore  equations  (2-58)  can  be  programmed  and  used  for  both  cases  if 
analogous  variables  are  substituted.  Cards  231  through  240  swap  the  entries 
in  Ml  and  M2  if  the  Thevenin  Equivalent  characterization  is  chosen.  Cards 
251'  through  291  form  the  quantities  in  (2-58) 


5c  Io 

i<  ?c  io + fc1 
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r the  quantities  in 

(2-60) 

Array 
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(3-2b) 
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(3-2c) 
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(3-2d) 
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for  the  Thevenin  Equivalent  characterization. 

Cards  295  through  300  read  the  frequency  and  form 


sin  (S<) 
cos  (8£) 


(3-3a) 

(3-Bb) 

(3-3c) 


Cards  306  through  316  form  equation  (2-58a)  for  the  Norton  Equivalent 
characterization  or  (2-60a)  for  the  Thevenin  Equivalent  characterization. 
These  equations  are  solved  with  subroutine  LEQT1C  in  card  320.  The  solutions 
(V (0)  for  (2-58a)  or  1(0)  for  (2-60a))  are  stored  in  the  array  B. 

Cards  332  through  336  form  equation  ( 2— 58b ) or  (2-60b)  and  the  entries 
in  V(3f)  for  (2-58b)  or  I(£)  for  (2-60b)  are  stored  in  the  array  WA. 

Cards  337  through  365  print  the  terminal  voltages  V(0)  and  V(jf).  Cards 
337  through  352  form  the  terminal  voltages,  if  the  Thevenin  Equivalent 
characterization  is  chosen, from 


V(0)  = yQ  - ZQ  1(0) 

V(jt)  = Itt) 

since  the  elements  of  the  arrays  B and  WA  are  the  following: 


(3-4a) 
(3— 4b) 


Array 

Norton 

Thevenin 

B 

V(0) 

1(0) 

WA 

v«) 

I«) 

Cards  353  through  365  print  the  resulting  terminal  voltages,  V(0)  and  V(Z). 
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3.2  Program  XTALK2 

A listing  of  XTALK2  is  given  in  Appendix  B. 

Cards  001  through  190  have  the  same  purpose  and  are  of  the  same  general 
structure  as  cards  001  through  181  in  XTALK.  The  slight  exceptions  are  that 
instead  of  computing  the  characteristic  impedance  matrix  and  its  inverse  as 
is  done  in  XTALK,  the  per-unit-length  capacitance  matrix  and  its  inverse  are 
computed  here.  The  per-unit-length  inductance  matrix,  L,  and  capacitance 


matrix,  C,  are  related  by 


LC=~1 
_ ~ .2  „n 

\i 


v C = v 


(3-5a) 


(3-5b) 


where  v is  the  velocity  of  light  in  the  surrounding  medium  given  by 


(3~5c) 


e is  the  permittivity  of  the  medium,  p is  the  permeability  of  the  medium, 

~ 8 

vq  is  the  velocity  of  light  in  free  space  (vq  = 3 x 10  m/sec)  and  and  p^_ 
are  the  relative  permittivity  and  permeability,  respectively.  The  char- 
acteristic impedance  matrix  is  given  by 


fc-"  !: 


(3-6) 


Therefore  " ^ = v Z„.  C is  stored  in  array  C and  C ^ is  stored  in  array  Cl. 

Cards  195  through  223  read  and  print  the  characteristics  of  the  reference 
conductor  and  the  n wires  to  be  using  in  calculating  their  self  impedances. 
Cards  233  through  269  read  and  print  the  termination  network  character- 


istics  and  are  identical  to  the  corresponding  cards  in  XTALK. 

Cards  275  through  332  perform  certain  frequency  independent  matrix 
multiplications  for  reasons  similar  to  those  given  in  3.1  for  the  analogous 
group  of  cards.  These  cards  form,  for  the  Norton  or  Thevenin  Equivalent 
characterizations,  certain  quantities  in  Tables  2 and  3: 


Array 

Norton 

Thevenin 
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2U 

Cards  328  through  332  form  the  sums  of  entries  in  each  row  of  C and  are 
stored  in  the  array  V3. 

Cards  336  through  340  read  the  frequency  and  form  the  quantities  w=2nf 
and  jo). 

Cards  346  through  385  form  the  self  impedances  of  the  wires  and  the 
reference  conductor.  The  equations  for  these  self  impedance  terms  are  given 
in  (2-42)  through  (2-49)  in  section  2.4.  The  self  impedance  of  the  reference 
conductor  is  stored  as  the  complex  variable  Z0  and  the  self  impedances  of 
the  n wires  are  temporarily  stored  in  the  array  B. 

Cards  391  through  398  compute  the  eigenvalues  and  eigenvectors  of  the 
product  of  the  per-unit-length  admittance  and  impedance  matrices,  YZ.  The 
per-unit-length  admittance  matrix  is  given  by 


Y = j u C 

and  the  per-unit-length  impedance  matrix  is  given  by 


Z = z U + Z„  + j u> 
0 ~n  ~D  J 
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(3-7) 


L 


(3-8) 


where  is  an  nxn  unit  matrix  with  ones  in  every  position,  Zg  is  the  self 
impedance  of  the  reference  conductor  and  is  an  nxn  diagonal  matrix  with 
the  self  impedance  of  the  i-th  wire  in  the  i-th  row  and  i-th  column.  The 
matrix  product  becomes  (with  the  relation  in  (3-5a)) 

2 


Y Z = ju)C  [zQ  Un  + ZD  + juL]  = jmzg  C + jwC  ZQ-  — Jn  (3-9) 


Note  that  C U is  simply  on  nyn  matrix  with  the  sum  of  all  elements  in  the 
~ ~n 

i-th  row  of  C in  each  of  the  entries  in  the  i-th  row  of  C U . These 

^ ~n 

quantities  were  previously  stored  in  the  array  V3.  The  subroutine  EIGCC 

computes  the  nyl  eigenvectors  of  YZ,  T^,  and  their  associated  eignenvectors, 
2 

y^.  The  matrix  T = [T^,  T^,  , Tn]  will  diagonalize  YZ  as  [1] 


f1  Y Z T = y2 


(3-10) 


2 2 

where  y is  an  nyn  diagonal  matrix  with  y^  in  the  i-th  position  on  the  main 

diagonal.  This  is  required  in  Tables  2 and  3.  T is  stored  in  array  T and 

2 

the  n entries  on  the  main  diagonal  of  y are  temporarily  stored  in  the 
array  B. 

Cards  403  through  410  compute  the  inverse  of  T which  is  stored  in 
array  TI. 

Cards  416  through  448  compute  certain  other  quantities  in  Tables  2 and 
3.  These  are 
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YL 

* -1 
Y^  = T 

U 9"1 

T 

* -1 

10 

* -1 
I = T 

±0  ; 

h 

Ho  * l1  5 Ho 

IL 

* -l 

VI 

h 

* -1 
-V  . = -T  C V 

-x 
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Array 

EP 


Norton 


Thevenin 


E+  = -|(e  Y/  + e"  yh  E+  = \(ey/+  e" .?) 
E"  = -|(e^  - e-#)  E"  = -|(e^r  - e-^) 


A =~  y 

~ jw  - 


A = Y 
jw  J 


Cards  449  through  458  form  equation  (1)  in  Tables  2 and  3.  This  equation 
is  solved  with  subroutine  LEQT1C  in  card  462  with  the  result  stored  in  array 


B as: 


Norton 

* 

V (0) 


Thevenin 

I*(0) 


Cards  480  through  484  form  equation  (2)  in  Tables  2 and  3 with  the 
result  stored  as 


Array 


Norton 

Id) 


Thevenin 

* 

I <*) 


Cards  485  through  531  form  the  terminal  voltages  V(0)  and  V(/)  by  back 
transforming  according  to  equation  (9)  in  Tables  2 and  3. 


3.3  Program  FLATPAK 


A listing  of  FLATPAK  is  given  in  Appendix  C. 


Cards  001  through  057  are  similar  to  corresponding  cards  in  the  previous 
programs. 

Cards  062  through  097  read  a portion  of  the  input  data  describing  the 
structure  of  the  line.  The  per-unit-length  capacitance  matrix,  C,  (computed 
wit).  GETCAP)  is  stored  in  array  C.  The  per-unit-length  capacitance  matrix 
with  the  wire  insulations  removed,  Cq, (computed  with  GETCAP)  is  stored  in 
array  CO. 

Cards  105  through  113  compute  the  eigenvectors  and  corresponding  eigen- 


values  of  the  matrix  product  C L.  Subroutine  NROOT  computes  the  matrix  K 
such  that 

(3-11) 


K_1  C-1  CQ  K = ip 


such  that  ip  is  a diagonal  matrix.  K is  stored  in  array  TI.  The  problem  of 
interest  is  finding  T such  that 


-1  2 
T C L T = y 


(3-12) 


where 


- ' »20  So 


(3-13) 


Taking  the  inverse  of  both  sidei  of  (3-11)  results  in 


K_1  Cq1  C K = f1 


(3-14) 


Taking  the  transpose  of  both  sides  of  (3-14)  results  in 


t -1  -1  -1 

Kc  C CQ  K = ip 


(3-15) 


,-l 


(Since  C and  Cq  are  symmetric,  C * C and  Cq  = Cq.  Also  ip  is  diagonal. 

Therefore  ip  = <P  ,.)  Thus  comparing  (3-15)  to  (3-12)  and  using  (3-13)  we 
identify 


K = T 


_i ' 


(3-16a) 


1 ,-l  2 

— 2 *P  = > 

vo  ~ 


(3-16b) 


„-ll 


and  T is  stored  in  array  C and  array  G contains  the  square  roots  of  entries 

2 


-1 


on  the  main  diagonal  of  y , y. 

Cards  114  through  128  compute  T and  y x if  the  Thevenin  Equivalent 
characterization  is  chosen.  Thus,  contained  in  arrays  TI  and  G are: 
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■ a 


i •? 
: | 


Array 

TI 

G 


Norton 

„t 


Thevenin 

T 


Cards  338  through  175  read  and  print  the  teimination  network  character- 
istics and  are  identical  to  the  corresponding  cards  in  the  previous  programs. 

Cards  182  through  220  form  the  following  frequency  independent  quantities 
(see  Tables  2 and  3) 


Since  T satifies 


Norton 


Thevenin 


* -1  -1  * -l 

lo = ? !o5  ! b - 1 ? b l 

* -i  -i  * -i 

Yj»=T  Y^C  T - T C T 

* -1  * -l 

I a T I V = T C V 

±0  t ±0  -0  Z ~ -0 


* -1 

-tMl  h 


T_1  * TC  C"1 


* -1 

-Vj>  — T C Vj» 


(3-17) 


-1  = -1 
T C T 


(3-38) 


and  those  relations  allow  the  entries  in  the  arrays  Y0,  YL,  10  and  IL  to  be 
more  easily  generated  as: 


Array 

Norton 

Thevenin 

Y0 

* 

lo 

= T_1 

-lt 

lol 

b ' f b I 

YL 

* 

It 

= T_1 

uf 

* t 

HI 

10 

* 

-0 

= T-1 

l-o 

V*  = Tc  V 

-o  : -o 

IL 

* 

H 

= T_1 

It 

* t 

it 

Cards  224  through  227  read  the  frequency  and  compute  oi  = 2rrf . 

Cards  233  through  248  form  equation  (1)  in  Tables  2 and  3. 

Equation  (1)  in  Tables  2 and  3 is  solved  with  subroutine  LEQT1C  in 
card  252  . 

Cards  264  through  268  form  equation  (2)  in  Tables  2 and  3.  The  arrays 
B and  WA  now  contain,  with  respect  to  Tables  2 and  3: 

Array  Norton  Thevenin 

b v*(0)  i*(o) 

WA  v *(*)  I*(*) 

The  terminal  voltages,  V(0)  ana  V(£)  are  computed  in  cards  269  through 
286  by  back  transforming  V (0)  and  V (£)  through  (see  Tables  2 and  3) 

Thevenin 

* * * * 

Y (°)  - Y0  - Sq  I (0) 

v(0)  = c-1tT  v*(0) 

= t-1  v*(0) 

, * * * * 

v (*)  = + z*i  U) 

Ht)  = c"1  t y*(x) 

-l*-  * 

= T V (X) 

Cards  287  through  301  print  the  resulting  terminal  voltages. 

3.4  Program  FLATPAK2 

A listing  of  FLATPAK2  is  given  in  Appendix  D. 

Cards  001  through  106  are  similar  to  corresponding  cards  (001  through 
097)  in  FLATPAK. 

Cards  112  through  133  compute  the  inverse  of  the  per-unit-length 


Norton 


v(o) 

-l  * 

= C T V (0) 

~ t * 

= t"1  ¥ (0) 

»«# 

v (*) 

- C-1  T V*«) 

V V • 

- T V (*) 
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capacitance  matrix  which  is  stored  in  array  Cl.  The  per-unit-length  in- 
ductance matrix,  L,  is  also  computed  from  the  relation 

L = ~ C"1  (3-19) 

~ ~u 

Cards  138  through  144  read  the  characteristics  of  the  wires  in  the 
ribbon  cable  (all  wires  are  assumed  to  be  identical)  for  use  in  computing 
their  self  impedances. 

Cards  154  through  191  read  and  print  the  characteristics  of  the  term- 
ination networks  and  are  identical  to  the  corresponding  cards  in  the  previous 
programs. 

Cards  197  through  262  form  certain  frequency  independent  quantities  in 
Tabies  2 and  3: 


Array  Norton  Thevenin 


Ml 

!o  f1 

S ?0 

M2 

ItQ1 

SS* 

VI 

1 M 
O 

SYo 

V2 

It 

S Y t 

Cards  251  through  262  form  the  quantities  C L which  is  stored  in  .rray  CO 
and  the  sums  of  the  elements  in  the  i-th  row  of  C which  are  stored  in  array 
V3. 

Cards  266  through  270  read  the  frequency  and  form  to  = 2irf  and  jto. 

Cards  274  through  283  form  the  self  impedances  of  the  wires  which  are 
stored  in  the  complex  variable  Z (all  wires  are  identical). 

Cards  289  through  295  compute  the  transformation  matrix  T such  that 

T-1  Y Z T = Y2  (3-20) 
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2 

where  y is  a diagonal  matrix  and 

Y Z = jwC  (z  U + z 1 + jo>L) 

" ~n  ~n  ~ (3-21) 

= juz  C li  + ioiz  C - id  CL 

.v  ~n  „ «,  „ 

Subroutine  EIGCC  computes  T and  stores  it  in  array  T and  stores  the  entries 

2 

on  the  main  diagonal  of  y temporarily  in  Array  B. 

The  inverse  of  T is  computed  with  LEQT1C  in  cards  300  through  307  and 
is  stored  in  array  TI. 

Cards  313  through  345  compute  certain  quantities  in  Tables  2 and  3: 


Array  Norton  Thevenin 


Y0 

* -1  -1 

Y0  = T YqC  T 

■k 

h 

- f1  C ZQ  T 

YL 

y£  = T-1  y^  c-1  t 

* 

Z~t 

= T_1  CZ^T 

10 

* -1 

I = T I 

-0  Z -0 

* 

v-o 

■ f 1 5 v-o 

IL 

* -1 

* 

-u 

- -f 1 c It 

EP 

E+  = y(e~Y*  + 

E+ 

l,  y/,  -y*. 

- "2  (e~  + e - ) 

EN 

f = !(>->) 

E~ 

1,  Y/  -Y*\ 

“ -jCe^  - e - ) 

G 

A = — — y 
- j«*>  - 

A = 

= -1—  y 

Cards  346  through  355  form  equation  (1)  in  Tables  2 and  3 which  is 
solved  with  subroutine  LEQT1C  in  card  359. 

Cards  376  through  380  form  equation  (2)  in  Tables  2 and  3.  Thus  the 
arrays  B and  G contain: 


Arrays 

B 

G 


Norton 


V (0) 
V*«) 


Thevenin 

* 

I (0) 
I*«) 
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I 


r 


* i 


Cards  381  through  406  form  V(0)  and  V(;£)  by  back  transforming  V (0) 
and  V <*>  as  described  in  FLATPAK  using  the  relations  in  Table  2 and  Table 
3: 

V(0)  = C_1  T V*(0) 

VfcO  = C"1  T V*(Z) 

Cards  407  through  427 print  the  terminal  voltages. 

3.5  Required  Subroutines 

The  four  programs  require  certain  subroutines:  LEQT1C f EIGCC,  NROOT,  and 
EIGEN.  The  individual  programs  require: 


Program 

Required  Subroutines 

XTALK 

LEQT1C 

XTALK2 

LEQT1C,  EIGCC 

FLATPAK 

LEQT1C,  NROOT,  EIGEN 

FLATPAK2 

LEQT1C,  EIGCC 

The  required  subroutines  must  follow  the  main  program  and  precede  the  data 
cards. 

3.5.1  Subroutine  LEQT1C 

Subroutine  LEQT1C  is  a general  subroutine  for  solving  a system  of  n 
simultaneous,  complex  equations.  The  program  is  a part  of  the  IMSL 
(International  Mathematical  and  Statistical  Library)  package  [9]. 

The  subroutine  solves  the  system  of  equations 


A X = B (3-22) 
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where  A is  an  nxn  complex  matrix,  B is  an  nxm  complex  matrix  and  X is  an 
nxm  complex  matrix  whose  columns, X^, are  solutions  to 

A X±  = Bi  (3-23) 

where  B^  is  the  i-th  column  of  B. 

The  calling  statement  is 

CALL  LEQT1C(A,N,N,B,N,M,WA,IER) 

where 

A -*•  A 
B -»-  B 
N ->-  n 
M •+■  m 

and  WA  is  a complex  working  vector  of  length  n.  IER  is  an  error  parameter 
which  is  returned  as  ^ 

IER  = 128  -*■  no  solution  error 

IER  * 129  f A is  algorithmically  singular  [9], 

The  solution  X is  returned  in  array  B and  the  contents  of  array  A are 
destroyed. 

Subroutine  LEQT1C  can  be  used  to  find  the  inverse  of  an  nyn  matrix  by 
computing 

A X = 1 (3-24) 

..  ..  ~n 

where  1 is  the  nyn  identity  matrix.  Thus  the  solution  is  X = A \ LEQT1C 
~n  .. 

■'‘The  solution  error  parameter  is  printed  out  whenever  LE0T1C  is  used.  The 
printed  error  is  IER-128  so  that  the  solution  error  should  be  0. 
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is  used  in  numerous  places  to  invert  real  matrices  by  defining  the  real 
part  of  A to  be  the  matrix  and  the  imaginary  part  to  be  zero.  Upon  solution, 
the  real  part  of  X is  the  inverse  of  the  real  matrix,  A. 

3.5.2  Subroutine  EIGCC 

Subroutine  EIGCC  is  also  a part  of  the  IHSL  subroutine  package  [9]  and 

is  used  to  find  the  eigenvalues  and  eigenvectors  of  an  nj(n  complex  matrix, 

M.  Denote  the  nyl  (complex)  eigenvectors,  T. , of  M as  T, , T„,  . T and 

~ -i  ~ -1  -2  -n 

the  corresponding  (complex)  eigenvalues  as  b^  b2,  , b , EIGCC  computes 

the  nxn  matrix  T - [T1#  T2,  T3>  , T ] such  that 

l"1  M T = B (3-25) 

where  B is  an  nxn  diagonal  matrix  with  [B]  = b and  [B]  = 0 for  i, 

~ ~ ~ ij 

j"l,  , n and  i^j . 

The  calling  statement  is 

CALL  EIGCC(M,N,N,2,B,T,WK, IER) 

where  WK  is  a real  working  vector  of  length  2n(n+l).  IER  is  an  error  para- 
meter which  is  returned  as  IER  = 128  + J.^  This  indicates  that  the  routine 
failed  to  converge  on  the  j-th  eigenvalue  [9],  The  precision  of  the  eigen- 
vector, eigenvalue  solution  is  returned  in  the  first  position  of  array  WK, 
WK(1),  and  indicates  [9] 

Solution  Precision 
WK  (1)  < 1 -*■  Excellent 

1 < WK  (1)  < 100  -*  Good 

WK  (1)  > 100  + Poor 

The  solution  error  is  printed  out  as  IER-128.  A successful  solution  would 
then  be  indicated  by  0. 


The  matrix  T is  stored  in  the  nxn  array  T and  the  eigenvalues,  b^,  are 
stored  in  the  nxl  array  B in  the  same  order  as  the  columns  of  T. 


3.5.3  Subroutines  NROOT  and  EIGEN 

Subroutines  NROOT  and  EIGEN  are  a set  of  subroutines  from  the  IBM 
Scientific  Subroutine  Package  (SSP)  [10]  which  compute  the  eignevectors  and 
eigenvalues  of  the  matrix  product 


B-1  A 


(3-26) 


where  A and  B are  nxn  real,  symmetric  matrices  and  B is  positive  definite. 

A listing  of  NROOT  is  provided  in  Appendix  E and  a listing  of  EIGEN  is 
provided  in  Appendix  F.  These  subroutines  are  used  to  find  the  eigenvalues 
and  eigenvectors  of  the  product  of  the  per-unit-length  capacitance,  C,  and 
inductance,  L,  matrices  as 


C L 


(3-27) 


Subroutine  NROOT  calls  subroutine  EIGEN. 

NROOT  computes  the  nxn  real  matrix  T such  that 


T-1  B_1  A T = G 


(3-28) 


where  G is  an  ri)(n  diagonal  matrix  with  [G]  = g and  [G]  = 0 for  i,  j=l, 

**  H 1 1 J 

, n and  i^j . The  eigenvectors  T^  correspond  to  the  eigenvalues  g^  and 


I - ITV  T2,  — , Tn], 


The  calling  statement  is 

CALL  NR00T(N,A,B,G,T,N*N) 


where 
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A + A 


B ->  B 


N -v  n 


G -*■  G 


The  nxl  array  G returns  the  eigenvalues  in  the  same  sequence  as  the 
columns  (corresponding  eigenvectors)  of  T. 

The  subroutine  operates  in  the  following  manner  [1,11].  NROOT  first 
computes  the  nyn,  real,  orthogonal  transformation  matrix  S such  that 

(s"1  - SC) 


S B S = H 


(3-29) 


where  H is  an  nyn  diagonal  matrix  with  [H]^  = h^  and  [H]  = 0 for  i,  j=l, 
, n.  EIGEN  is  called  for  this  calculation.  Since  B is  real,  symmetric. 


positive  definite,  the  eigenvalues  of  B,  h^,  are  real,  nonzero  and  positive. 

1/2  -1/2 

Therefore  NROOT  forms  the  square  root  of  H,  H and  its  inverse  H 
NROOT  then  forms  the  products 


M = S H 


(3-30) 


MC  A M 


(3-31) 


which  is  real, symmetric.  NROOT  calls  EIGEN  once  again  to  find  the  nxn  real, 

-1  t 

orthogonal  matrix  W such  that  (W  = W ) 


VI1  [M1  A M]  W = G 


(3-32) 


arcs 


(3-33) 


(3-34) 


The  NROOT  subroutine  used  in  the  program  FLATPAK  and  shown  in  Appendix 
G is  slightly  different  from  the  NROOT  subroutine  given  in  SSP  [10].  The 
difference  is  that  the  eigenvectors  in  NROOT  in  Appendix  G are  not  normalized. 
This  is  required  for  NROOT  to  be  used  in  FLATPAK  so  that  the  transformation 
matrix  T which  diagonalizes  the  matrix  product  C L as 

f1  C L T = Y2  (3-35) 

will  satisfy  the  identity 

T-1  = TC  C-1  (3-36) 

If  the  columns  of  T (the  eigenvectors)  are  normalized,  (3-36)  will  no  longer 
be  true. 
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IV.  USER'S  MANUAL 


This  section  will  serve  as  a user's  manual  for  the  use  of  the  programs. 
All  input  data  are  punched  on  cards  which  must  follow  the  main  program  (and 
any  subroutines).  The  format  of  the  data  input  cards  as  well  as  suggestions 
for  program  useage  are  included.  All  of  the  programs  require  three  groups  of 
data  input : 


Group  I 


I 


Transmission  Line 

Structure  Characteristics  Cards 


} 


Group  II 


{Termination  Network 
Characterization  Cards 
Group  11(a) 

Group  11(b) 


Group  III 


f 


Frequency  Cards 


These  card  groups  must  follow  the  main  program  (and  any  required  suoroutines) 
in  the  above  order.  The  data  entries  are  either  in  Integer  (I)  format,  e.g., 
35,  or  in  Exponential  (E)  format,  e.g.,  12.6E-3.  All  data  entries  must  be 
right-justified  in  the  assigned  card  column  block. 

In  all  four  programs,  the  user  must  appropriately  dimension  all  arrays 
for  each  problem.  Comment  cards  are  provided  at  the  beginning  of  each  program 
to  assist  the  user  in  providing  proper  dimensions.  All  arrays  must  be 
properly  dimensioned  by  repunching  the  dimension  statement  cards  in  a program 
before  using  the  program. 

4.1  The  Frequency  Cards,  Group  III 

Each  frequency  card  contains  one  and  only  one  frequency  for  which  an 
analysis  is  desired.  The  format  of  the  frequency  card  is  shown  in  Table  4. 

The  frequency  in  Hertz  is  punched  in  columns  1-10  of  each  card  and  must  be 
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TABLE  4 


Format  of  the 


frequency  (Hertz) 


Total  number  = 


Frequency  Group  Cards.  Group  III 


card  column 
1-10 


format 

E 


unlimited 


right  justified  in  the  card  block  consisting  of  card  columns  1-10.  For 
example,  if  one  wished  to  input  a frequency  of  1 M Hz,  one  may  punch 

1 . E 6 
t t t t 

card  columns  7 8 9 10 

If,  instead,  the  frequency  was  punched  as 

1 . E 6 

+ + + + 

card  columns  6789 

The  program  would  take  this  to  be  a frequency  of  10^  Hertz  (zeros  are  added 
to  fil.  out  the  assigned  card  block).  This  right-justification  of  data  in  an 
assigned  card  block  applies  to  all  other  data  entries. 

More  than  one  frequency  card  may  be  included  in  the  frequency  card  group. 
Each  urogram  will  process  the  data  provided  by  Groups  I and  II  and  compute  the 
response  at  the  frequency  on  the  first  frequency  card.  It  will  then  recompute 
the  response  at  each  frequency  on  the  remaining  frequency  cards.  The  program 
assumes  that  the  data  on  card  Groups  I and  II  are  to  be  used  for  all  the  re- 
maining frequencies.  If  this  is  not  intended  by  the  user,  then  one  may  only 
run  the  program  for  one  frequency  at  a time.  This  feature,  however,  can  be 
quite  useful.  If  the  termination  networks  are  purely  resistive,  i.e., 
frequency  independent,  then  one  may  use  as  many  frequency  cards  as  desired  in 
this  frequency  card  group  and  the  program  will  compute  the  response  of  the 
line  at  each  frequency  without  the  necessity  for  the  user  to  input  the  data 
in  Groups  I and  II  for  each  additional  frequency.  Many  of  the  time-con- 
suming calculations  which  are  independent  of  frequency  need  to  be  computed 


-o/- 


s 


4 

•3 


I 

'v 

I 

i 

I 

eft 


I 

i 


only  once  so  that  this  mode  of  useage  will  save  considerable  computation  time 
when  the  response  at  many  frequencies  is  desired.  If,  however,  the  termination 
network  characteristics  (in  Group  II)  are  complex  (which  implies  frequency 
dependent),  one  must  run  the  program  for  only  one  frequency  at  a time. 

4.2  The  Termination  Network  Characterization  Cards,  Group  II 

This  group  of  cards  conveys  the  terminal  characteristics  of  the  term- 
ination networks  at  the  ends  of  the  line,  x = 0 and  x = j£.  The  termination 
networks  are  characterized  by  either  the  Thevenin  Equivalent  or  the  Norton 
Equivalent  characterization.  These  characterizations  are  of  the  form 


Y (o ) = vQ  - zQ  i(0) 
v(t)  = zt  i a) 


Thevenin 

Equivalent 


(4-la) 


1(0)  = IQ  - YQ  V(0) 

i(*)  = -i*+  it  nt) 


Norton 

Equivalent 


(4-lb) 


and  are  discussed  in  detail  in  section  2.3.  The  transmission  line  consists 
of  n wires  which  are  numbered  from  1 to  n and  a reference  conductor  for  the 
line  voltages.  The  reference  conductor  is  numbered  as  the  zero  (0)  con- 
ductor. Thus  VQ,  Vj,  1^,  I^  are  nyl  vectors  and  Z^,  Z^,  Y^,  Y^are  nyn 
matrices  which  are  assumed  to  be  symmetric. 

The  impedance  or  admittance  matrices..  Zq  and  Z^or  Yq  and  Y^  , respectively, 
may  either  be  "full"  in  which  all  entries  are  not  necessarily  zero  or  may  be 
diagonal  in  which  only  the  entries  on  the  main  diagonals  are  not  necessarily 
zero  and  the  off-diagonal  entries  are  zero.  The  user  may  select  one  of 
four  options  for  communicating  the  entries  in  the  vectors  and  matrices  in 
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(4-1).  These  are: 


OPTION  = 11 


OPTION  = 12 


OPTION  = 21 


OPTION  = 22 


{ 

{ 

i 

l 


Thevenin  Equivalent  representation 
diagonal  impedance  matrices 


ntation;  L 
* ZQ  and  Zv  ] 


Thevenin  Equivalent  representation 
full  impedance  matrices,  and 


ion;  7 

H-  ) 


Norton  Equivalent  representation; 
diagonal  admittance  matrices,  Y^  and  Y . 

Norton  Equivalent  representation; 
full  admittance  matrices,  Y^  and  Y^. 


1 

} 


The  structure  and  ordering  of  the  data  in  Group  II  are  given  in  Table 
5 and  can  be  summarized  in  the  following  manner.  The  first  group  of  cards 
in  Group  II,  Group  11(a),  will  describe  the  entries  on  the  main  diagonal  in 

’W’  Y0ii^Z0ix^»  and  YX  Yjfii^Zm^’  and  the  entries  in  io^-0^’ 

I0i(V0i)’  and  1 £ i ) * These  cards  must  be  in  the  order  from  i = 1 

to  i = n.  Each  of  these  entries  is  in  general,  complex.  Therefore  two  card 
blocks  are  assigned  for  each  entry;  one  for  the  real  part  and  one  for  the 
imaginary  part.  For  example,  consider  a 4 conductor  line  (3  wires  and  a 
reference  conductor).  Here  n would  be  3.  Suppose  the  Thevenin  Equivalent 
characterization  is  selected,  with  the  following  entries  in  the  characterization 
matrices : 


Ho 


1 + J2 
3 + j5 
6 + j4 


?0 


7+38 

0 

0 


0 

39 

0 


0 

0 
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TABLE  5 (cont.) 


Format  of  the  Termination  Network  Characterization  Cards,  Group  II 


Y0ii(Z01i) 


w 


W 


Group  II (a) (total  = n) 


( real  part 
^ imaginary  part 
( real  part 
( imaginary  part 
C real  part 
( imaginary  part 
r real  part 
/ imaginary  part 


card  column 


11-20 


format 


21-30 


31-40 


41-50 


51-60 


61-70 


71-80 


Note;  A total  of  n cards  must  be  present  for  an  n wire  line  and 
must  be  arranged  in  the  order: 


wire  1 


wire  2 


wire  n 


TABLE  5 


Group  11(b) 


-total  = n(n-l)/2  if  OPTION  = 12  or  22 
''total  = 0 if  OPTION  = 11  or  21 


) 


card  column  format 


( real  part 

1-10 

E 

( imaginary  part 

11-20 

E 

( real  part 

41-50 

E 

ww 

/ imaginary  part 

51-60 

E 

Note:  If  OPTION  = 12  or  22,  a total  of  n(n-l)/2  cards  must  be 
present  and  must  follow  Group  Cl (a).  If  OPTION  = 11  or 
21,  this  card  group  is  omitted.  The  cards  must  be  arranged 
so  as  to  describe  the  entries  in  the  upper  triangle  portion 
of  Yq(Zq)  and  (Z^)  by  rows,  i.e.,  the  cards  must  contain 

the  12  entries,  the  13  entries,  , the  In  entries, 

the  23  entries,  , the  2n  entries,  etc.  The 

ordering  of  the  cards  is  therefore: 


wires 

1,2 

wires 

1,3 

• 

wires 

l,n 

wires 

2,3 

wires 

2,4 

• 

wires 

2,n 

wires  (n-1),  n 


71- 


One  would  have  selected  OPTION  11 


The  n=3  cards  would  be  arranged  (in  this 


order) 


Group 

11(a) 


r 


7.E0 

4* 

8.E0 

+ 

1.E0 

* 

2.E0 

+ 

16.  E0 
♦ 

0.E0 

+ 

12. E0 

f 

0.E0 

+ 

10 

20 

30 

40 

50 

60 

70 

80 

0.E0 

9.E0 

3.E0 

5.E0 

17. E0 

18.  E0 



0.E0 

13.  E0 

10.  E0 

11.  E0 

6.E0 

4.E0 

0.E0 

19.  E0 

14.  E0 

15.  E0 

If  the  terminal  impedance  matrices  were  not  diagonal,  e.g.,  OPTION  12  is 
selected,  then  n(n-l)/2  additional  cards,  Group  11(b),  would  follow  the  above 
n cards  comprising  Group  11(a).  These  cards  describe  the  entries  in  the 
upper  triangle  portion  of  the  termination  impedance  or  admittance  matrices 
by  rows . Suppose  the  networks  are  characterized  by  the  same  and  V ^ 
vector^  as  above  bat  the  Z and  Z -matrices  are 

<u  W J 


- 


It 


+ j8 

20  + j 21 

22  + 

j 23 

+ j 21 

j9 

24  + 

j 25 

+ j 23 

24  + j 25 

10  + 

jll 

•M 

16 

26  + j 27 

28 

+ 3 27 

17  + j 18 

j 29 

28 

j 29 

jl9 

The  following  n(n-l)/2  = 3 cards  must  follow  the  abovo  3 cards  in  the  order 
of  the  12  entries  first,  the  13  entries  next  and  then  the  23  entries: 


26.  E(j)  27. 


m 


22. EO  23. EO 


28. EO  0. EO 


24. EO  25. EO 


0. EO  29. EO 


4.3  Program  XTALK 

XTALK  considers  (n+1)  conductor  transmission  lines  consisting  of  n wires 
in  a lossless,  homogeneous  surrounding  medium  and  a reference  conductor  for 
the  line  voltages.  The  n wires  and  the  reference  conductor  are  considered 
to  be  perfect  (lossless)  conductors.  There  are  three  choices  for  the  re- 
ference conductor  type; 


TYPE  = 1:  The  reference  conductor  is  a wire. 

TYPE  ■ 2:  The  reference  conductor  is  an  infinite 

ground  plane. 

TYPE  = 3:  The  reference  conductor  is  an  overall 


cylindrical  shield. 


Cross-sectional  views  of  each  of  these  three  structure  types  are  shown  in 

Figure  4-1,  4-2  and  4-3,  respectively. 

For  the  TYPE  1 structure  shewn  in  Figure  4-1,  an  arbitrary  rectangular 

coordinate  system  is  established  with  the  center  of  the  coordinate  system  at 

the  center  of  the  reference  conductor.  The  radii  of  all  (n+1)  wires,  r , 

wi 

as  well  as  the  Z and  Y coordinates  of  each  of  the  n wires  serve  to  completely 
describe  the  structure.  Negative  coordinate  values  must  be  input  as  negative 
data  items.  For  example,  Z.  and  Y.  in  Figure  4-1  would  be  negative  numbers. 


Shield 


For  the  TYPE  2 structure  shown  in  Figure  4-2,  an  arbitrary  coordinate 

system  is  established  with  the  ground  plane  as  the  Z axis.  The  coordinates 

and  Y^  (positive  quantities)  define  the  heights  of  the  w’  es  above  the 

ground  plane.  The  necessary  data  are  the  Z and  Y coordinates  and  the  radius, 

r . , of  each  wire, 
wi 

For  the  TYPE  3 structure  shown  in  Figure  4-3,  an  arbitrary  angular 

coordinate  system  is  established  with  the  center  of  the  coordinate  system  at 

the  center  of  the  shield.  The  necessary  parameters  are  the  radii  of  the 

wires,  r the  angular  position,  0^,  and  the  radial  position,  r^,  of  each 

wire  and  the  interior  radius  of  the  shield,  r . 

s 

The  format  of  the  structural  characteristics  cards,  Group  I,  are  shown 

in  TABLE  6.  The  first  card  contains  the  structure  TYPE  number  (1,2, or  3), 

the  load  structure  OPTION  number  (11,12,21,  or  22),  the  number  of  wires,  n, 

the  relative  dielectric  constant  of  the.  surrounding  medium  (homogeneous), 
e^,  the  relative  permeability  of  the  surrounding  medium  (homogeneous), 

and  the  total  length  of  tha  transmission  line, if  , (meters).  If  TYPE  1 or  3 

is  selected,  a second  card  is  required  which  contains  the  radius  of  the 

reference  wire,  rwQ,  (mils)  for  TYPE  1 structures  or  the  interior  radius  of 

the  shield,  r , (meters)  for  TYPE  3 structures.  For  TYPE  2 structures,  this 
s 

card  is  absent.  These  cards  are  followed  by  n cards  each  of  which  contain 

the  radii  of  the  wires,  r .,  (mils)  and  the  Z,  and  Y.  coordinates  of  each 

Wl  I I 

wire  (meters)  for  TYPE  1 and  2 structures  or  the  angular  coordinates  r^ 
(meters)  and  0^  (degrees)  of  the  i-th  wire  for  TYPE  3 structures.  These  n 
cards  must  be  arranged  in  the  order  i = 1,  t = 2,  , i = n. 

4.4  Program  XTALK2 

XTALK2  considers  the  same  structure  types  as  XTALK.  The  only  difference 

between  the  programs  is  that  XTALK2  considers  imperfect  conductors.  This 
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TABLE  6 


Format  of  the  Structure  Characteristics  Cards,  Group  I,  for  XTALK 


Card  Group  #1  (total  = 1) : 


card  column 


format 


(a)  TYPE  (1,2,3) 

(b)  LOAD  STRUCTURE  OPTION  (11,12,21,  or  22) 

(c)  n (number  of  wires) 

, ..relative  dielectric  ^ 

er  'constant  of  the  } 
surrounding  medium 

(e)  p (relative, permeability  of  the 

r surrounding  medium). 

(f)  <j£  (line  length  in  meters) 


Card  Group  #2  ( 


total  = 1 if  TYPE  = 1 or  3, 
total  = 0 if  TYPE  = 2 ) 


(a)  TYPE  = 1:  r °f  reference) 

wo  wire  in  mils 

(b)  TYPE  = 2:  absent 

(c)  TYPE  - 3%  r radlus  °f) 

s shield  in  meters 


10 

19  - 20 
29  - 30 
36  - 45 

51  - 60 
66  - 75 

6-15 

6-15 


Card  Group  #3  (total  = n) 


(a) 

rwi 

(wire  radius  in  mils) 

6-15 

(b) 

Zi 

for  TYPE  1 or  2 in  meters 

21  - 30 

r. 

for  TYPE  3 in  meters 

(c) 

i 

Y. 

1 

for  TYPE  1 or  2 in  meters 

36  - 45 

Qi 

for  TYPE  3 in  degrees 

Note : Cards  in  Group  #3  must  be  arranged  in  the  order: 

wire  1 
wire  2 


wire  n 


requires  an  additional  set  of  cards  in  Group  I which  must  follow  those  in 
Table  6.  The  format  of  these  cards  is  shown  in  Table  7. 


4.5  Program  FLATPAK 

FLATPAK  considers  (n+1)  wire  flatpak  or  ribbon  cables  as  shown  in 
Figure  4-4.  The  (n+1)  wires  are  considered  to  be  perfect  conductors.  In 
addition, the  surrounding  media  are  assumed  to  be  lossless.  The  required 
cards  in  the  Structure  Characteristics  card  group,  Group  I,  are  shown  in 
Table  8. 

The  first  card  is  similar  to  the  previous  programs  and  communicates 
three  items  to  the  program.  The  first  entry  on  the  card  is  the  number  n 
which  is  the  number  of  wires  in  the  cable  exclusive  of  the  reference  wire. 


The  second  entry  on  the  card  is  the  load  structure  option  which  is  to  be 
selected  from  the  choices  11,  12,  21,  or  22  as  discussed  in  section  3.2. 

The  third  entry  on  this  card  is  the  total  length  of  the  cable  in  meters. 

Card  Group  2 concerns  the  entries  in  the  per-unit-length  capacitance 
matrix,  C,  for  the  ribbon  cable.  Since  C is  symmetric,  it  is  only  necessary 
to  input  the  entries  on  the  main  diagonal  of  C and  the  entries  in  the  upper 
(or  lower)  triangle  of  C.  Computer  program  GETCAP  [8]  was  designed  to  compute 
these  items.  GETCAP  has  the  provision  for  providing  a punched  card  output 
of  the  entries  in  C in  the  form  required  by  FLATPAK. 

A few  comments  are  in  order  to  assist  users  of  GETCAP.  The  program  is 
documented  in  Volume  II  of  this  series  [8],  However,  some  confusion  as  to 
the  wire  numbering  sequence  in  GETCAP  and  FLATPAK  may  arise.  The  wires 
in  the  cable  are  numbered  from  left  to  right  with  numbers  from  1 to  N=n+1 
for  use  in  the  GETCAP  program  with  the  reference  wire  number  chosen  from 
this  sequence.  In  the  FLATPAK  program,  the  wires  are  numbered  from  left  to 


TABLE  7 (Cont.) 


Format  of  the  Structure  Characteristics  Cards,  Group  I,  for  XTALK  2 

Card  Group  // 1 same  as  XTALK  (TABLE  6) 

Card  Group  //2  same  as  XTALK  (TABLE  6) 

Card  Group  //3  same  as  XTALK  (TABLE  6) 


Card  Group  #4  (total  = 1)  card  column  format 

TYPE  =1:  (a)  radius  of  strands  in  reference  6-15  E 

wire  (mils) 

(b)  conductivity  of  strands  21-30  E 

(siemens/meter) 

(c)  number  of  strands  in  reference  39-40  I 

wire 

TYPE  = 2:  (a)  per-unit-length  resistance  6-15  E 

of  ground  plane  (ohms/meter) 

(b)  per-unit-length  inductance  21-30  E 

of  ground  plane  (henrvs/meter) 

TYPE  = 3:  (a)  thickness  of  shield  (meters)  6-15  E 

(b)  conductivity  of  shield  21-30  E 

(siemens/meter) 


Card  Group  it  5 (total  = n) 

(a)  radius  of  wire  strands  (mils)  6-15  E 

(b)  conductivity  of  wire  strands  (siemens/  21-30  E 

meter) 

(c)  number  of  strands  in  wire  39-40  I 

NOTE:  Cards  in  Group  #5  must  be  arranged  for  wires  from  1 to  n. 
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TABLE  8 


5'  < 


i 

s 


ss 

t 


? 

£ 

I 

> 


Format  of  the  Structure  Characteristics 

Cards,  Group  I, 

for  FLATPAK 

Card 

Group  //I  (total  = 1) 

Card  Column 

Format 

(a) 

Number  of  wires  (exclusive  of  the 

reference  wire)  (n) 

9-10 

I 

(b) 

LOAD  STRUCTURE  OPTION  (11,12,21,  or  22) 

19  - 20 

I 

(c)  Line  length  (meters)  £. 

Card  Group  §2  (total  = n(n+l)/2) 

21  - 30 

E 

(a) 

i 

5-6 

I 

(b) 

j 

10  - 11 

I 

(c)  rCl  (farads /meter)  (Entries  in 

the  per-unit-length  transmission 

line  capacitance  matrix  with  the 

wire  dielectric  insulations  in 

place,  computed  with  GETCAP) 

Card  Group  #3  (total  = n(n+l)/2) 

14  - 26 

E 

(a) 

i 

5-6 

I 

(b) 

j 

10  - 11 

I 

(c) 

rc  1 (farads/meter)  (Entries 

•v  « J 

14  - 26 

E 

in  the  per-unit -length  transmission 
line  capacitance  matrix  with  the  wire 
dielectric  insulations  removed,  com- 
puted with  GETCAP) 


i 


s 

I 
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! 

I 


r 


i ' 


§ 


right  with  numbers  from  1 to  n with  the  reference  wire  numbered  as  the  zero 
(0)  wire  as  shown  in  Figure  4-4,  Whether  the  cross  section  of  the  cable 
in  Figure  4-4  is  at  x=0  looking  to  the  right  (increasing  x)  or  at  x = 
looking  to  the  left  (decreasing  x)  is  irrelevant  so  long  as  the  user  is 
consistent  in  using  the  same  cross  section  for  wire  numbering  in  GETCAP  and 
in  this  program  when  assigning  the  load  termination  entries. 

The  third  group  of  cards  in  Group  I,  Card  Group  It 3,  are  the  elements 
of  the  per-unit-length  transmission  line  capacitance  matrix  computed  with  the 
dielectric  insulations  removed,  C...  GETCAP  may  be  used  to  compute  these 
items  and  provide  punched  card  output  for  direct  use  as  data  input  for 
FLATPAK. 

4.6  Program  FLATPAK  2 

FLATPAK  2 considers  (n+1)  wire  ribbon  cables  as  in  FLATPAK.  However, 
FLATPAK  2 considers  che  (n+1)  wires  to  be  imperfect  (lossy)  conductors. 

The  format  of  the  Structure  Characteristic  Cards,  Group  I,  is  shown  in 
TABLE  9.  Only  one  additional  card  over  those  required  for  FLATPAK  is  needed. 
Since  all  wires  in  the  cable  are  assumed  to  be  identical,  this  card  describes 
the  characteristics  of  these  wires  for  use  in  computing  the  wire  self  imped- 
ances. 


4.7  Examples  of  Program  Useage 

In  this  section,  some  typical  examples  wll  be  shown  to  illustrate  the 
use  of  the  programs.  Entries  on  the  data  cards  as  well  3S  typical  printouts 
of  the  results  will  be  shown. 

The  terminal  network  structures  for  the  examples  are  those  comprising 
Examples  1,  2,  3,  and  4 shown  in  Figure  2-4  and  Figure  2-5.  For  Examples 


r 
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TABLE  9 


Format  of  the  Structure  Characteristics  Cards,  Group  It  for  FLATPAK  2 


Card  Column 


Format 


Card  Group  //I 
Card  Group  //2 
Card  Group  // 3 
Card  Group  #4 


same  as  FLATPAK 
same  as  FLATPAK 
same  as  FLATPAK 
(total  » 1) 


(a) 

radius  of  wire  strands  (mils) 

6 - 

15 

E 

(b) 

conductivity  of  wire  strands 

21  - 

30 

E 

(siemens/meter) 

(c) 

number  of  strands  in  each  wire 

39  - 

40 

I 
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1 and  2,  the  ontrloH  In  the  Thevuiiln  Equivalent  characterl z/itlon  matrices 
are  given  In  (2-32)  nnd  the  entries  In  the  Norton  Equivalent  characterl nation 
matrices  are  given  In  (2-35).  For  Examples  3 and  4,  the  entries  In  the 
Norton  Equivalent  characterization  matrices  are  given  In  (2-37)  and  the 
entries  in  the  Thevcnin  Equivalent  characterization  matrices  are  given  in 
(2-38). 

The  terminal  voltages  for  each  wire  (with  respect  to  the  reference 
conductor)  at  x*0  and  x«jf  are  the  entries  in  V(0)  nnd  V(£),  respectively. 

The  magnitudes  and  angles  of  the  entries  in  V (0)  (V(£))  ate  denoted  by 
VON  and  VOA  (VLM  nnd  VLA) , respectively,  on  the  computer  printouts.  Two 
frequencies  will  be  considered,  10  MHz  and  100  MHz. 

4.7.1  Examples  of  the  XTALK  Program 

The  transmission  line  structure  chosen  for  all  examples  in  chis  section 
is  that  of  two  wires  with  another  wire  ns  the  reference  conductor.  The 
wire  radii  (mils)  are  6.3  mils  (thousands  of  a inch)  for  vires  tfl  and  92 
with  the  reference  wire  of  radius  6.3  mils.  The  three  wires  are  in  a linear 
array  with  ■ 1.27  mm,  Y^  " 0,  - 2.54  ram,  T^ie  Hne  length  is 

5 meters  and  the  relative  dielectric  constant  is  chosen  (for  the  purpose  of 
illustration)  to  be  3.0  with  a relative  permeability  of  1.0. 

The  data  cards  are  shown  in  Figure  4-5  through  4-8  and  the  printouts 
are  shown  in  Figure  4-9  through  4-12. 

4.7.2  Examples  of  the  XTALK  2 Program 

The  line  considered  for  XTALK  in  4.7.1  will  be  used  here.  Each  wire 

7 

will  be  stranded,  copper  (o  ■ 5.8  x 10  ) with  7 strands  in  each  wire.  The 
radius  of  each  strand  is  2.5  mils. 
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The  data  cards  are  shown  in  Figure  4-13  through  4-16  and  the  printouts 
are  shown  in  Figure  4-17  through  4-20. 

4.7.3  Examples  of  the  FLATPAK  Program 

A three  wire  ribbon  cable  will  be  considered.  The  wire  radii  are 
.16002  mm,  the  insulation  thicknesses  are  .3479  mir  and  the  center-to-center 
separations  of  the  wires  are  1.27  mm.  The  insulations  are  polyvinyl 
chloride  and  a relative  dielectric  constant  of  3.5  is  assumed.  The  reference 
wire  is  the  middle  wire  in  the  cable.  The  elements  in  the  per-unit-length 
capacitance  matrix  (with  and  without  the  dielectric  insulations)  were  com- 
puted with  GETCAP  [8], 

The  data  cards  are  shown  in  Figure  4-21  through  4-24  and  the  printouts 
are  shown  in  Figure  4-25  through  4-28. 

4.7.4  Examples  of  the  FLATPAK  2 Program 

The  three  wire  ribbon  cable  considered  in  the  previous  section  with  the 
FLATPAK  program  will  be  investigated.  Each  wire  is  stranded  with  7 strands 
(copper)  and  each  strand  is  of  radius  2.5  mils. 

The  data  cards  are  shown  in  Figure  4-29  through  4-32  and  the  printouts 
are  shown  in  Figure  4-33  through  4-36. 
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lf*JMMIMM  llllllilllLll.lllltl 
^^i^fii  ilium  iii  iiiiiniiiiiiim ii 

nmmnimmimmninnnwiyyjjy  t^Tt  iiiiimiimmimiiinimm 

' 11111111111111.11111111 


i iii  1 1 1 1 1 1 1 1 1 m 1 1 1 1 1 1 1 1 1 1 1 


mmmmmmoihmmmmmi 

Iff 


i i i i t • i i i « h u ii  m n * H u n x n n n i<  i 

HAM  Tf  KWM 


m ii  i mi  nmi  mi  ii  i ii  mi 


Input  Cards,  XT/.I.iC , Cxaropj* 


FJ-yuru  4-I> 


] 


...MW Mtl., 

i.HaliKBi 

laaaltflfifii 

ialkfiji€a9i 

t~aco 



*• 


1 1 M M 1 1 1 • 1 1 (1 1 1 1 M 1 1 • 

m i m i*  1 1 1 m m*  m i m ii  m 1 14^.11  iVrfL vi  Min  mi  it  i ii  i ii  ii  ii  i m i mi  i him 
miniiiMMimi'iiimmi'.iigf! 
n n n n n n n n n m m m i n i wi 


4444444444444444444444444444444 

mmmmimmmmmm 


i m mm  ii  1 1 ii  mil  i nmiiiii 


ifflu  iitmmimmimimmit 
iVgimm’  mn  mu  Minimum 

4^444  4 4 4444  44  4 4 4 4 4 4 4 44I4  4444  4 44M4 

*n  mmm'immimlislmsit 

mmjtj^a^iim 

MiMMMMmiMiMMimmimmijyuui^immmmMimmmmmn' 

1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1,  j u m [mR  n j i » in  n 1 1 1 1 : 1 1 1 1 m 1 1 1 1 1 1 1 : 1 1 1 1 1 1 1 1 
m m i m m hi  m m m 1 3*1  n mi  Ii  i mill  1 1 Fm  mi  i m m m i m m m m 1 1 m 

mc«ct  r mm 


Ki^tirt:  4-6.  Input  Cnrdu9  XTAI.K,  Lx.w.plc 


i r i « » • t H«aiiaaiia»aiiBtii<aMiiaaa*a»MaaMaaa«aaaaaaaaa»attMaBMaaBuaaMBaaaaa»*»Na»ffaaa 
» » • • » ih^MliMiMaiiigMliiMaillMDHaaiMHiiaafiaaiiiaaa 


..fiKI ItKI. 

' . , 

.uaViKI  - M 

~~ 

.i»ki.....i;ki.., 

n ■ ■ ft  ■ ■ P m 

•aaflli^taa 

• i?lKIanaatlKlaini<»9|Klaaaii 

.IiHI S>KI.. 

•MaSvt^lx* 

...WKt fyttl 

i i i i i • aviaai 

anfcfcstttaiaaa* 

i i t i • i noar 

ao(k47^a3aaai 

• 

< i « i i (InaaHaaarlSa 

aaalliKlaa 

II 

i i 

t I 
1 I 
1) 
44 
1 I 
I I 
1 J 
I I 
I I 

i i 


llllllllltlllll 


1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 II  lei  3H  • I II 1 1 • 1 1 1 ! • ' 1 1 1 1 1 • • 1 1 • • I ' I .!  1 1 1 1 • 
anaaaaaaaiaaaaaalaaAffliuiaaaaaaaaaia 

1 1 n 1 1 1 it  m Mj^ni  iVrflyp-i  iiiiiiii'iiiimiiiiiiuimiiiihi 
mini  i U i<^0n 1 mifft  i in  1 1 1 m 1 1 i 1 1 1 1 1 1 1 in  1 1 1 1 in  it 
iiiimiii  An  miiii!ii))iiiii)iin!iiiiiin 


11111111111% 


1 1 in i*  1 1 nt  1 1 1 
nnnninnn 
nmnnnnn 

444444444444444 

mmmmm 

iiiiiiiiiiiiiii 

111111111111111 

iiiiiiiiiiiiiii 

1 1 III  II I II II  i n 

i » i i it*  utnn4tintiHnnjivnH»nfi*n»9nni>ntntni*H*4itntm*tr*mm*uunu*ii  *******  mm  umm»nTtnnnnnnnm 

MACKXTT  lOfOfV 


4 4 4 4 4 4 4 4 4 4 CTl  4 O'MV*  f 4 M 4 £W  4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

1 1 1 1 1 1 1 * i $ Lu  i lA/WAi  i i s s i s i s 1 1 ! 1 1 m 1 1 m $ ! i s ! s s m » 

mil  IjMpJWJ  » * * 1 1 1 * i m n 1 1 II 1 1 III  1 1 1 u 1 1 1 1 • 

ii  in  l in  1 1 1 yniij  y y 1 1 n i 1 1 1 1 i n n i n l i n 1 1 n 1 1 1 1 1 1 ? 

1 1 1 1 1 1 1 1 1 1 1 1 1 1' 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


hiiwu:::: 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 


. Input  Curtin , XTA1.K,  LxampJc  3. 


-By- 


FlGur  u 4-7 


I I I I t I 


Ij 

I 


«»«!. 

iHai^iaaa. 

, . . .?!«« 4iKI> 

■ nwafi^IrpfiaaaMi 

.toft} 

awadfi^Aaaai 

)«UK) 

i i 4 a a a a a dll 9^8 

■ B N II  ftriljlK  W fl  »M 

.«r«i 

.7..XW 

1)414141  a a a a a a a oSft38^»8»a  hm  a an  a a 4a 

(iKLaa... 

— 

— 

, 

,,,,,,  M.^Xta.a.ai 

- - 

?»Ki.a.aa7. 

MMalfeKdaaa 

— 

fflKl..77. 

1 1 1 1 1 1 im  • 1 1 1 1 1 • M i • 1 1 1 ( 

t > i « i t i i lanfoMatMaiiiaN 

111  I I 1 III*  til  lit  I 1 Itl  I II 


immiiiimmi  hi 

minnnnmnmm 

444444444444444444444444 
IS  J5iiM  MIMIM  J1M511 
lllllllllllllllllllllli 
iniMMimjimnnn 
1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
iiiiiniiimiimiim 


ml 

iCTnup-i  m 1 1 1 1 1 1’mmmimmimm" 


1 1 1 1 n 1 1^ 

niisAfi 


itiiiiiiiiiiimiiiiiimiiimi 
i^iiiiiii,»iiim>mii!iiimn 
4444444444444444444444444444444 


mi  sm}!sm  mmi!ii!iiish 
m 1 1 m 1 1 1 1 1 1 1 m i m m 1 1 1 1 1 1 . 
ni  n m Y\  i ij  y u h ininniiinnnmiiiniiiini 



nn  ii  m M m ) riTi  tirii  i iti ill i t i 


iiiiiimiiMiiimmiimti 


i i i 4 i i i 4 4auttiiM4ii>«aiiiniHfiaraaaanuK>aiiaaaiiaa«aa«aaaiiuuHaauaaaaDa4iaa«aaa*aaaaa>aaa 

MMftCTT  SDKI##  \ 


I’J  i;un.'  4-8. 


Input  (J.irdu,  ITALIC,  K>;.n.:plc  A. 


XTAIK 


2 OAOALLSL  • !*€* 

T.rpg  «LJggyfy«ij».  1 - 

LOAD  STAUCTUftC  OPTION*  II 
LIKC  LPNCTM*  9*0000040  00  MCTtttf 


».f«J«WT(h.-TI»«  1,00090  OT  SOLUTION  e««0«~ 

0 

*l*p  vomivoltsi  vooioeooeesi 

vlmivoltsi  vLAioeooeesi 

1 0*0200-01  1 *0770  OL 

_ 1_  _ It.SOAD-Ot  -7*1100  01 

9*91'  00  -1,0700  02 

♦ •K'D-Ql  -3,0000.  01  . 

PABOUINCV  (,**▼*)«  1*00000  00 

«i«e  vom 


SOLUTION  eiHlOO"  0 


VOM I VOLTS  } VOAIOCGOCPOI 


0*0010-01  4*0100-01 

-OUAIOrO*  -0*0020  U. 


VLMlVOLTt)  VLA(OO'SOeeS) 


I * 2040  0 0 7*00  90  00 
9*9900-02  1*0990  02 


SOMPILf  TIMfa 


OOifCT  cooe*  20S90  BVfeS.AOAAV  A0eA»  07*  BVTfS, 

Mjmbe*  of  eoooBS*  0.  IftjSSftin 0P~iA%NTffc'$« 

o*9«  sec, execution  Tt*e«  o«oo  sec*  io.aa.as 


07*  BYTES*  TOTAL  AOBA  AVAILABLE * tOITOt  BYTES 


A OLT  77  VATFtV  - JAM  1070  V|L« 


Figure  4-9.  Output  Listing,  XTALK,  Example  1. 


FftCOue*ev(HC*TZ)«  i.oooor  or 


tOLOTJCW  fimo*. 


© 


$ 


% 

?; 

i 

fr 

I 

\ 

} 


?' 

\ 


«t»e  vonivolts*  voA(Ofc«rct) 


\ 9*«*©0-0l  l.OTTO  00 

JL L«Jfttte£L.  . rt.lfo  ei^ 


VLN(VOUT«l  VUMOF6*PEt> 

S.StOO  00  -(•♦TOO  oz 

•flW.-JI  -J*W0_JM 


Figure  4-10.  Output  Listing,  XTALk,  Example  2. 


-92“ 


t 


* 


i 


Figure  4-11.  Output  Listing,  XTALK , Example  3. 
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'*  *«••*■  aa*»anaB»»BB*»BBBa 

I 14.1  s i n * * <•  **  » » »**  aaaaaaaaaaaati  aana  *<• ««  u«  ««««.aa  v ana  aanaaaaBaMaavaaaii  aa  a a nn  aaa  \ 

_ * 

...ohSl MB  «asnf  Hi  958*  «*m  »S|  8f|8  «««««  i»Si  »r»M»  Mg 

***»»  m 

I util  it  t a maim  8n*a5|9£lt*»  a a a an  a »?>««<■«  aacaaaaBnM  aauaaaa  uu»m»wmm»»nnn»nnn»m^ 

: .-Mil  « W « $>K2.......,Z . 

j i i j « 1 1 1 i ia$|4lff§*»aaB»aa*a?|15ii8aa*»aBBaZ«a«*«8*aBa*aBBa8»aBB«#BB«aBBa8*B»»»B»»»aN 

’ t>i.M>itaMfG*«a«a»a»M4f»3  disk nnvnnm  Mj^aa.a  i«n«n  wnn*«  • *«•«*«.•»  p * » * e n * r*»w 

J mmtii  »»aa»aai>??5»2«a8«**»aa*f^RJao**«»aaa«aa»»a«a«a*a*a»»*aBa»a»»a* 


\ 

Datum#  , 


If  MMMM.,WW  * * • » » » a n * » » i» » » »»  a »*  » » »»  » * «■  * •*  nn 
|;j  i 1 1 4 > i i < • ItiaaBaaaatlaaaaaaaaaftaBsaBBaaaalfclMa 


•liKS* 


itMtttmit!iminmtt>m:i!  i 
inn  nm  j ji  nniin  inn  j Jin  Aflfjf 


<<4<4M44444I444MMM4M<44444 


5 5 J 5 5 5 $ 5 5 J J 5 J 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 5 U4  5 AWi>  I 
M I If  I M 4 1 1 1 4 1 4 IM  1 1 1 M tl  M Ml  I M?J  ( Pi 


MMMMMMMMMMIIMMMIMMMtMIIJI&llMMMIMMIlllMMMmMllllMIM 
i t > 4 1 ( i • laniaaaaiiiiaaaaaMaaaaaaaaaaaiMlaainMhiaaaaaaaBaMaBiiaaNaaaaaaaawaaanaaaaaaa 

i-\lv  mrf  ixh  imnii'jiiimiimtiimimn 
M«L  iiiiimmmtniimtmtimi 


%MM<  ^44  4 4 4 M<  4 44  <44<  4 4444  4 4 4 <44444444 
15  1*P  5 5 J-W  5 5 5 5 5 5 5 5 5 1 5 5 5 5 5 5 5 5 5 5 5 1 5 5 * 5 5 5 5 5 5 


inn;  mnnmnmimnimn 


I M m 1 1 1 1 1 Ml  It  1 1 1 1 M M 1 1 4 


HIM  «?•**:« 

mnum  y u y H n^Ti  u in 

UBttwM'i'ttWffl 

IMMIMSMMMMMMMIlM 


lV'44  l*?!  I M I M 1 1 1 1 1 M a II I II 1 1 1 1 II I II II I 

:j  y mmmnmnmmiinnini 


mmImmmmmmmIiiiimm 


MMIMMMMIMMMMMMMMMMSMMMMMIMMIMIMMMMIMMMIIMIMMM 

i i j 4 > i ? i i »ttu um  ft  mni I* If  n n a m s»»ii lum it «<•«<* «««!•» uwhnn unnmm ita«NNi?NN *nnr.nnnt  nkn 
MMKCTT  MON 


Figure  4-13.  Input  Cards,  XTALK2,  Example  1, 
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1114  I 

. I1H. 

1 * > « * 


• o » a* **•*  » *» * a aaaa a» a aaaawa a« « « ««•  •««««»« s sim 9 ■*•»»« vaaaa ©a  a aw  n a ***  n n nm 

« 

m»»waiiii»J«»aj7aaaJia»*B*w*W4Mi«««n*4M>*4isM:»»j*ik*ij3i*»«*D*a*#***i»»»Jiw»7»WJMi 


m . i i m aa«aa2«« 

muims  <*yW  iffimiiutJ 


«»WM .....{>KI 

a««aaaa»»aaitas8aaaaa*Baa»]iaaNaa»aaM 


naaaaawaa* 1 


niiim 

i > > 4 i • r t i a^l^}»R«»aaaaNaaaaaaaaaMaana*a«atta«a«aaa*aaMaaaaaM*aaMaaaaaaaaaHaaa^'4a  j 

i2i44i)i »*»»»» n»? laaaaaaraa8aaaM»aaaa«?Sif t« 


1 


a?>l5f) 


aaaaa 


ininmmmmnnmuun  Ash  j 


'I 


IIMIIIIIIIIIIIIIIIIIIIIIlllllllllllllllllclIlllMIIIIIM'  lr||||ltlll«||r|,IM 
'**•»• » » • »"*n»»»n»»»i.aaaaaaaa»»»aaa»i44J*<|#'J4*a«aaa»a»«»BBa8aaae«aa»aaa*aaaiia»Baa 

iininiLniniiti  jiimnimi  tiiiT*  jttf?  ufc-i  1 1 1 1 u i i'h  it  1 1 1 1 u i n 1 1 1 1 1 1 o i n 


lttnitmiiimimiimummin 
»<^>mm!nminmm!»m>ii 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 R1 4 Mftli  4 frU  < 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

3 3 3 3 3 5 5 3 3 3 3 5 3 3 3 5 1 3 3 5 3 3 5 3 5 3 3 3 1 3 3 M 3 fmjt*  * * 5 * 5 * » 5 * * * * J 5 5 S 5 5 5 3 1!  S $!  * { 5 3 3 3 ' 

m).?imnnn?nmn!nnmn>T; ty^p  HiVnininnmnnnmnnumn 

i33mn3nnt99S9M9m!3iM!iHssiiMi9Miiiim9niiiiii9iitmiiiinmiM!i 

I ) ) 4 J C 7 I IUillI>)MO>lr/l|r«a*t7!7J14»:ir2«2ta»UUM»*))ll*«4!C4)«4««<r4l4lttllUUMaM»Mtttt*ttttuiiM«i..j.Ia1l'.N,<«,. 

lUCKSTT  2O40M 


best  available  copy 


Figure  4.14.  Input  Cards,  XTAI.K2 , Example  2. 


-96- 


FoV* 


t j i « s 1 1 }f[§tiaa s»s««  «» na assairs»sasa»a*asa«««s«««««*»«a»»ss »*a»s •**«••••** »a* **»»*» 

aa*» a ssa* » a aasassssassssss* a ass *•**•*••*••»*  »»*** 

V a a im  sun  aaa»  sssaas  a a#  « ««« « UK8  • Stans  8iH« »...*»« 


i j nhf? 


. .-  — 

ntssiiDMMsas) 


a...ll!$l, 


V 


\ 


i 1 1 « i?^fS!naaaaf$f|!aaaaa!|l£!aaaaa 

fills .?t!S8..a*.M$I.....MIf, 

iaaaafj|(^5l\^] 

imum  alllSfa aaaaaaa 



..SiK! 

.....z 

f MCI 

...wee.. 

1 

A '1 

Itlttlflt*  MS!  »»  4 t9S2« 


a a aani.no 


.liHt 


ta** 


mnmit  mss 


-\  M 


»n  aaaaaaa  aaaaaaa  a »>>«»>••«•«•«««••  aa  aaaaaaaaaaaaaanaawaaaaaa  naan' 


.1, 


n a Van  ana  as  it  asa  a aaaaaaa  aii 


l*!H 


sassssttsss 


Mil. 


\ 


MIIIIIIIMMMIMimilllllllllMIMimt£:l]lltllimiti:i:illMmi«ti:}:il||| 
iintiinm  a o a » a o » uni.  aaNaa»»aaaaa»aawkaMla|fu<UM.«aaaaaMaaaaaaaaa«aa«aaaaaaa»aaaa« 

1 1 iii  i m i iii  i ii  1 1 i m m m i i 1 1 1 mClTV  iVm  i/m  1 1 it  1 1 1 1 : i m 1 1 m it  1 1 1 n i m 1 1 n 


lttllMl£llH 

f^tminiimitiimiiiiimiiiit 

i^iiiiiii:iuiiiiiiiiiii:iiimii 

<£44  4 44  4 44  44  4 444  4 4 4 4 4 44  4 44  4 4 4 44  4 4 4' 

$^$$4mi}$!iiHiisim!ss!smss 

ilftimiiiiiiimimiiiiiiiiiiHi 

iiiiiiiiiiiiiiiiiiiiiniiiiunif Yfrij  y ?j  w iVi  iiiiniiiininnnmiiiiiiiiii 


i 1 1 1 1 1 1 1 1 1 1 1 ; 1 1 1 1 1 1 1 m 1 1 1 U 


Liiiiiiiiiiiinlmiiiii  . 


iinniiMHiMiM  jmnnmiiiisMniitTiiiriinTiiiiiniimiinimiiiiiiin 

I I J 4 1 I 1 I IWna>)m}t4  17aaSt1UU24SMt7saN)ISUMMS)}MSS««4}«4«S4l««WttUUMSS>ISSSMCaMSSaSMSnnnMnNnSSM 
MAOtXTT  zoioaa 


BEST  AVAILABLE  COPY 

Figure  4-15.  Input  Cards,  XTALK2 , Example  3. 
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• t#  wa  srrr*  vxvrnm 


— m B8Biiaa8aB»ax8X8BBiiaa8«a«iaa«BB«BBBB»aaBa#BB»!*aBBB»B8Ba88»* 

i tm  »$ n»«*»»B»»ai*no»a»ji»»»»s»a»»»»*a««««a*na«a*«»a»»»aaa«aaa«»*«a»*»»a»»»ii»»'. 

— ■«  - i ««wm— . 1 "i— ^ w—f«— — — —MW iww — — i ■ . - --»-  - - — ■ j — ■, 

. , ..-MSI tiKD .d)$,..JiSI......,.......,...»;\ 

T7Ti;w,...:r.w.,...»ts^ — uis  a a a a at  m 
, , ■ . m* ifflii: — »««  a a a a i 3|l§2 a a a«  atjbl^t  a a a a a(|^|K 

- . ..  ,.»*„,  _«■_  J ..  . .,  , — -,.  -a»  -»■  - — ,r—  »■«■,..  j>.  1 ,.  „ — _ »■»—  . w - . a»  »■*  ■■-----  - - >—  I ■ , I ■■  I r-  >-  — , *~*  t—  I 

i «>«»•>• t a^l^f  f a»aaaaaaaa3|l?Si»saaaaaaaJ«aaaaaaaa»aa«aaB«»*»aaaaaao«»»a»»a»a»»l»»r 
“ . ,7.7,W.  ^.a-aaSlK  aaBaaasaaSaaaaaaaaaaaaBaaanaaaaaaaaaaaaaaaaaaaaaaa' 

«>?*!  no  « »***»»  a3fti$£»  jaaaavaa£«««««a>aaa«aaaaa*a«<4«a««aa*aaai'  aaaaa&aaa 

iimm  • a^  |?5f  »«  ••a»aa?|THHtalt  aaaaa»aaatll?l#  >aaa«aaawaaaaaaaaaaaaaaaaaaaaaaaaa 

“....JMil  Ivt^. ,4.5^ 

i t 1 4 1 • > • ia^|?5f a»»»a«aaan3aaaa»a»'aaaaaaa«aaaaa*aaa»aaaaa»aaaaa#aaaa«Ba*aaaaa»aa«' 
i t 1 4 1 1 i « •InaaaiaaaStanaaaaaaaiaaaa’aaaaaa  liKi.: l,Ri.... ,5»Ri;,7.. 


tiMMii  • »M*»»i»»ii8»aiiaB*BBi?BBB»BBMBa*hBi»*f#*4ia4iaaBB«BW8B««a*aBe*«aaaa»BWBBBB»BiH»- 

1 1 1 1 1 1 1 1 1 - 1 1 1 1 1 1 1 1 1 1 it  1 1 1 1 1 1 1 1 1 1 f iV  ff  ixh  i m m r:  1 1 1 II  III  III  III  1 1 III  1 1 VM 

iiiiitiiiiiiniiii'lniiiitHiiiuffiiiSt^Minniiiiniiiiiiiiiiniitiiii 


lutnitiniiiiiiiiiiiiiiimiiAfi: 

H4<44<4  4<44H4  4 4 4 4 4 ',  4 (4  4 4 4 4 4 4 1 WlMTOj^lijl^UMIIIIIIIIHI  4 4 4 4 4 4 4 444  4 44  4 4144 

i liiiiiiisiisiiiiiiiisssisssiiisMmMiVBi^iiniiiir.iiiiiiiiiii'ir.iiiiii 

| HH(HHnH(H(HIHH(HIHH4^|l(^|lJj<H|^»)t*HIHH!)llimilHIHIIHH|«ir<  ! 

mmmmmmmmmmm  dnju  u w ilTf mmimmmmmimmm  i 

II I 4 1 1 3 1 1 II 1 1 1 1 4 1 1 1 1 1 H 1 1 4 ^j|U  |j  R IT£  1411^  HI  4 4 4 1 (1 1 1 H 1 1 II 1 1 II L II 1 1 1 II I | 


limiimn'miiiimuij'iiiiiiii 


II 1 1 1 1 3 1 1 1 II II I II 1 1 1 1 1 1 1 1 1 1 


(IiihiihiihLhiiihi 


nn  3 1 tTti  i n m i ti  m i . i • t • h 9 : m 1 1 

1 1 j 1 1 i 1 1 » • it  a w w n *a  titntianHB  tur  »****»»»»  v**n*e  a*  e*v2*2*va;4a»it*»miiK***m»*m9*m9»nnw*»m 
NACftfTT  ZU093 


best  available  copy 


Figure  4-16.  Input  Cards,  XTALK2 , Example  4, 
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i 


Figure  4-17.  Output  Listing,  XTALK2,  Example  1. 


1 


BEST  AVAIIABLE  COPY 


TYRE  OF  STRUCTURE*  1 

LOAD  STRUCTURE  OPTION*  *1 

LINE  LENGTH-  9*0000000  00  NETfR9 

WUTt»f  PfUMULITY  OFT  ME  NtOlUN*  _ | ♦JOOO  00 

REFERENCE  CONDUCTOR  F3R  LIME  VOLTAGES  IS  * «l»f  WITH  RADIUS*  0.3000  00  MILS, 


0.30CO  00 


0*3000  00 


~ i~epqiioiwrv^(iifTgon-~ 

*▼00-03 


*•9400-03 


PER-UNtT-LENGTM  CAPAC  tr  A MCE  MATRIX  INVERSION  ERROR 


-reference  i!wg'T¥~inrrawp-¥TTH-r»  -rr*nwnir'wn3TTJT*~'T7WW irmr 

CONDUCTIVITY  or  REFERENCE  *1*7  9TRAN09*  9*0000  07  StEMCNS  MO  METER 


• |0t  NUMBER  «IM  STRAND  RADIUS  (MRS) 


conductivity  < siemens  mm  meter) 


MUMOER  or  9TRAN09 


admittance  at  x*0 

111EWN1)  „ „ ___ 

CURRENT 

SOURCE  AT  X*0 

( ANPS1.  . 

ADMITTANCE  AT  X"L 

{ SIEMENS 1 

n 

i 1 

SOURCE  07  x«L 

-iOMMl  - 

REAL  t MAG 

REAL 

t MAG 

4f  AL 

I NAG 

REAL 

INAO 

T.5$65~66  0.6000-01 

1*0000  00 

o.oooo-ot 

1*0000-03 

6 « 6665-01 

" 0*0006-01* 

9.0090-01 

1*0003-01  0*0000-01 

0.  0060-01 

0*0000-01 

1*0000-04 

0*0000-01 

1*0090-00 

9.9999*91 

frkoocncyihertzi*  t*ooooo  or 

MOIN  SOLUTION  |MO«. 0 


SOLUTION  ERRON.- 


TRANSFORMATION  MATRIX  tNVEMSION  MMM  0 

•I mu  vom(volts)  voaidegrees) 


4*0310-01  I.T300  00 

1*0900-01  -0.4710  0 1 _ 


VLM(VOLTS)  VLAIOtONCtSI 


3*3300  00  -1*4700  0* 

9*0700-01 


FREQUENCY IMERTZ  I*  1*00000  00 


SOLUTION  ERROR* 


PRECISION*  4*0100-03 
TRANSFORMATION  MATRIX  INVERSION  ERROR*  0 


VOM(VULTS)  VO A< DEGREES ) 


9.4740*01  4*4790-01 

-SafllfiQitt.  -^Z*4»00_0i 


VLMI VOLTS)  VL A ( DEGREES ) 


1 • *470  00  0*1070  00 

tililO’OI  . 1.QS9Q.  02 


CORE  USAGE  OBJECT  CODE*  94636  OTTES, ARRAY  AREA*  131*  BYTES. TOTAL  AREA  AVAILABLE*  10179*  BYTES 

OrraWSTtCS  - NUMBER  dr  ERRORS*  0*  NUMBER  OP  MORNINGS-*  0*  NUMBER  OF  E xYENilt  NS*  *0  ' 

COMPILE  TIME*  I. *4  SEC. EXECUTION  TfMf*  0.1*  SEC.  10*49*90  TUESDAY  4 OCT  » 7 MATP1V  - JKH  1970  VlLS 

• STOP 


Figure  4-18.  Output  Listing,  XTALK2,  Example  2. 


MS 


* »AAALLtL  Ml  AES 


xxtt-op  . STMtcxim*  i 


LOAD  STAUCTUAE  OPTION*  It 


LINT  LENGTH*  5*0000000  00  METEA* 


„jttijmt_«!W5»»uiTY  of  T!*u«eaitm»  i *0000.00 


lfifHCJL.CttSfcUC:ifl£_*2^^  IS  A YtRE  *ITH  A AD I US*  0*1000  00  NILS 


-'ofwrwotfoc* — ironf«nHr?iTC*T“ ' 

1 OUOM-OO 


i eMiotMAft  rMCtiot) 


NfA-UNTT-LENGTM  CAPACITANCE  NATAfX  INVEASION  |N0M  0 


• w fi em cr  iwr i s irira wcrwiTtr m>r in»wiy  irsooo  oo  mu 

CONDUCTIVITY  0*  AfEEAENCf  VtAE  STAANOS*  fc.AOOO  OT  41*M7NS  PEA  NET«A 


«!0C  NUNOfA  «t»E  STAANO  AAOIU*  (MILS) 


CONDUCTIVITY  I SIEMENS  Pf  » NCTtNt 


NUNAEA  CP  STAANOS 


INPEOANCE  AT  X»0 


— roooirav 


lOCTACe  SOUACE  AT  X*0 


IMPEDANCE  AT  X*L 

_ . !OHN|| 

CAU  SNAG 


VOLTAOt  AOOACE  AT  X»L 


9*0000  00  0*0000*01 


TAEOUfNCVfHfATn-  1.00000  OT 


SOLUTION  EAAOA*  0 


"18h  6n*°  3, Also- 02 


TOANSTCAMATfON  NAT9U  INVC»SIOM  EPP04*  0 


V0NI VOLTS  I VO A ( 0CGAEES1 


f.9990  00  -T.fOAH-OI 


rl»jH05_JM 


/LNfVOLTSI  VLAIDEOAEtS) 


1*0000  00  -t*«T4D  00 

W«5  M . 


PAEOUENCVIHEAT* >■  | .00000  00 


SOLUTION  eaaoa* 


TAANfPQAMATtON  NATA | X INVfASION  EAAOA*  0 


V0NIV3LTSI  VOAIOEGAEESl 


0*0950  00  -O.TSOO-OI 


VLHfVOLTSI  VLAIOEuAEES) 


UOOTO  00  3.2740  00 

llMOO_90 TltAiJZzll 


COAf  USAGE  OAJECT  COOF*  59696  OTTtS.  4A9*Y  AAE4*  1 3A»  AVTfS*  TOTAL  AAEA  AVAILABLE*  ISITS*  ATTfS 

‘TJUWflJS’TrCS  qU*»«TT-TJT^irAROAS* 6.  NUM8EA  OF  V4AMINGS*  Or  NUMSEA  Or^tKTmmiWS* 1ft — 

COMPILE  TINE*  1.27  SEC .PXfCUT  ION  TINE*  0*13  SEC.  10.46.S6  TUfSOAV  A OCT  ?T  VATPIV 


or  NUAftiA  or^fUTPmiiws*" 


1 .27  SEC. EXECUTION  TIME* 


A OCT  ?T  VATPIV  - JAN  107ft  Vltft 


Figure  4-19.  Output  Listing,  XTALK2 , Example  3, 


-101- 


i 


t y— e or  structure-  | 

LOAD  STRUCTURE  OPTION*  22 
LINE  LENGTH*  5.0000000  00  METERS 


RELATIVE  PE  RNCABIUTY  OE  Tut  MC01UM-  « >0000  00 


REFERENCE  CONDUCTOR  EOR  LtNE  VOLTASES  IS  A WIRE  WITH  RAOtUS-  0*1000  90  MILS 


4.10CQ  00 


4*1000  oo 


I.  2 TOO -01 


2*0400-03 


RE*— UNIT— LENGTH  CAPACITANCE  MATRIX  INVERSION  ERROR-  0 


CONDUCTIVITY  or  AfEEAfNCE  WIRE  STRANDS-  9*4000  07  SIEMENS  METER 


....  . J. 

•|Nf  NUMBER 

V 

•t»E  STRANO  RADIUS  (MILS) 

CONDUCTIVITY  (SICMCNt  OCR  MCTCR 1 

NUMBER  OE  STRANOS 

40-ITTANCr  *T  X-0 

111MNS1 

•r*L  |MAG 

'¥*'0000-01  o.ooon-m 

0*0005-01  0.0000-01 

0*0  (fW»6 1 


EOCQUCNCVfHCRT*)*  | *00000  07 


CURRENT  SOURCE  AT  X-0 

_ ( AMES  » 

*F*L  IRAQ 


ADMITTANCE  AT  X-L 

{SIEMCMtl 

4CAU  l NAS 


1*0000  00 
0*0000-01 


0*000D-0t 

0*0000-01 


••0000-01 

4*0000-01 

- t.OOOo-Ot 


0. 0 000-0 t 
0.0000-0I 


CUWWT  source  or  X-L 

uneu 

OIAU  14 AO 

o.ooo¥¥t  o.oMo-01 

1*0000  00  •*••00-01 


SOLUTION  MAIJA*  9 


1*0- 01 

TRANSFORMATION  MATRIX  INVERSION  ERROR-  0 


vomivolm)  voajdecreesj 


2*0000  00  -7*2040-01 


VLN(  VOLTt I VLAIDEGREEOl 


1*0000  00  -2*0740  00 


0000  00  -1  .6 !•<?_$? 2*0000  00  


PREQUCNCTIHCRTn-  1.00000  00 


SOLUTION  ERROR- 


I 

I 

■ 


! ! 5!  N lOLUTrONPRTCfsTON-  4.4 160-03 

TRANSFORMATION  MATRIX  INVERSION  ERROR-  0 


VOMIvrtTSI  VOA  C OEGOEES I 


2*0930  00  -4  TSOO-OI 

.1*4990.59  .3*2990.-91 


VLNIVOLTf)  VL A I OEGOEES  > 


1.00  70  0 0 9* 2740  90 

. 2*9900  09  r3*4MQ?91 


CORE  USAGE  OBJECT  CODE*  50496  BYTES. AWL AT  A4EA-  1112  BYTES. TOTAL  A Of A AVAILABLE-  10(702  faVTCS 

S'fTtfNOSfffcS  ' NUMBER  OE  ERRORS-  O.  NUMBER  OE  VARNINGS-  0*  NUMBER  OE  EXTENSIONS-  W 

COMPILE  TIP--  1,29  SEC. EXECUTION  1 |ME«  0.11  SEC.  10.47.S2  TUESDAY  4 OCT  TT  HATEt V - JAN  1070  V|L« 


Figure  a— 20 . Output  Listing,  XTALK2,  Example  4. 


2 


I 1 > « > I 'I,  » tl  I m<  r « 11  M K rt  n n H n H II  » n » H *1  li  H 11  » II  ^ i'  « M « »*  U y W » N IH  M B K * « K * M M B M * « M * 

i i i i i i I " » n « » a » a a a (i  a B M n a nan  m a u um  a a ii  ■ MM  ■ a a«  a a ■•mi  mum  aaaa  »«  (•,••••••  a a an  ■■■•  a aa 


naaaa8f)8£&> 

h»U^8> 


.8iK9. 

.0»KI. 


■UK*. 

.UK9. 


.Iiltl. 

.I»KI. 


.Ufft. 

.9»K(. 


.MU 

.6*51 


• 1 1 « . li95l«*o...lh859 

I'iWt ffvflfl 

9.. ..?.,  * 

9 i i * »l  - • ia5.o*3*l§9lfl£jfak§i 
9.  I . .1  r . , at.a«U3?lRiff|*U. 

9. .  . ,9. . ,.§«»»?  fc§5139il^U, 

9ii<iliitataoa  MftlltfcU  nanaaaaaaaaaaaaaaaaaaaaaaaaMaauMaaaaaaaaaaaaiiaaaBaaaaa 
i i)<>iiti^nanHaaiiakknasaa  3*858, 


\pnnn*iixHnntiMM*mvm*»«mm«n*Hun»uvMnM*wm*nmmmmn*nmMn»*»nm 


I if  m n m » » ti » 


I9DMM  umm 


lftnU)«»Xn»M««<l4;O«4««««IIMaV3JMMMt7KMMt}V(IM«Mtl«M>inC8Mf|JI0a>»n 


ii 1 1 1 1 1 1 1 1 1 1 ii i • i « 1 1 1 1 1 1 mil 1 1 1 • 1 1 1 1 1 r i • 1 1 1 1 1 n ii « 1 1 1 1 1 : 1 1 1 1 1 1 1 1 1 1 1 m 9 e I ii  i (I 

I 1 i 4 » i T • i»!MiaMt)iitf«»)ifioaxa»raiia»iiu»M»  mqU  mAmLoITu  « in  *t  m « * * v v u * M v * % m m m • m • « •»  m m n n an  n n » » n »m 

1 1 1 1 ii  i it  i ii  i ii  in* .1 1 1 1 1 n m 1 1 1 1 i-fO  TV  iYi  fi  \Jh0\  i n m m i m 1 1 1 m i m m n 1 1 1 n 

ur- 


211122122*22212222222 

Diiiinimmnini 

444444444444444414444 
555555555555555555555 
( t m i f t ( ( i t ( ( i i 1 1 1 s t 

iiiinniinmnmi 

t I I I I I I 111  I 1 I M I I I til 

n n n m m s 9 9 9 n s 9 9 


iffl  222222222222222221:2222222222*11 

gjiuT]u)i)i))]ii)i)i)ii)ii)iii)iii)] 
M 4 f4U  4444444444444444444*44444444444 
,r  5 fTJ  5 5 5 5 5 5 5 9 5 5 5 5 9 5 5 J 5 5 5 5 9 5 5 $ I 9 15  i 1 1 

1 1 i I S I Hi  6 4^iu!l  jWf'ljl  I ( 1 1 1 i 1 1 Is  1 1 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

11111111111  yf j"y  y ij  ui  i y?i  11 1 1 11 1 1 11 1 n 1 1 1 1 n 1 n mi  n n 11 

hi  iij  u 1 1 u 1 ilitVnn  1 1 1 1 1 1 1 1 1 1 1 1 1 1 s 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 g m 1 


2222222222  00 
3333  *3333  Ptf  1 3’sJ 
444444444  Hj  4 4jVj 
5 5 5 1 5 5 * 5 5 5J4  5 5'5/yv/s  f 

rZ 


1 1 1 1 1 1 1 1 1 iti  n 1 1 1 1 1 1 1 1 1 1 1 

COMPUTING  CENTER 

9 9 9 9 5 9 9 9 1 9 9 9 5 9 9 1 1 1 9 9 9 9 9 49  9 Mill 


91999999999999999999999999999* 


j i « J 1 j 1 t v " 11  >1  '*  :>  * » * * 11  m n a a 21  v nn  **  v .i  >4  n m )i  » at*  *i  4i  ou  *s  *t  <nt  4i  u * a uh  h uu  u :t  n ti  un»  a uttuun  n n n * n n n n *m 

94ACKITT  ZOIO»« 


, Kxar.iplc  !• 


Figure  4-21.  Input:  Cards,  FLATFAK 


4 » * « I •TvTV*9«tt**«««**IIIIJMtllfl0ftNV**ftll*l***««ltf«0*«*****l*UH*********'**ai’********  + *****  •• 

. . . .UWH 9>K« 9,949.... .4,851.:.. UIW i,K8....i»K?i Itfil 

t'ff! 9,948..... 1,959. ....9»959....U95;4 9,959 9,9J9 ItKI 

9 ? . , . 

5, IMtKfcK 

9 1 » . *1 . # » •<•«•••• 

9 

9i  i • i • • ■§  • l?...*  * aa*aavaaa».a««a.aaa  •*«««. »aa  a • aaaaa 

9,  , . .1  r . 

I I I • * t I • ,?H*aN*«ii<,$iiiBn»*3ftKfii'*a><MMiiaaa«»uM«a*aaai>vu»aa,iaa«'fiiaaMaaaaMa»«aM*a.aaa 


tllllllltllllltlltllltlllll'l'  I 

It  111  I I I I II  t I I II  1 I r ! I 1 I III  II  I II  11  jjlSl  lYf  M y(n  m I I I It  I I I | I til  Ilf  | | | | r Ml  I III  I I 


nimiii'mnm'Mmmmii  J >$ph 


n m m n m j i mm  j j m’  jj  i:&fi : 

4 4 4 4 4 4 < 4 4 4 4 4 4 4 4 < 4 4 4 4 I <;  < 4 4 4 4 4 Ili^H  4 

5 S i 5 5 } } J J J III  I J i 1 } i 5 J J ’ 1 J * I J U4  J jj! 


<444 


imMiminmmiinmmm 
i^q  i))i)iH)))i)niiiiimiiiii»] 

4 444<<44444<  4444<444444444<<4444 

nmmiinmiMn 


I III  4 4 1 1 ( 1 1 1 1 1 4 1 1 1 i 14  I 4 1 1 1 1 1 1 1 1 Ifm  I lif  Mil  1 1 4^*1  4 4 4 4 4 4 1 4 4 4 1 1 4 1 4 1 1 1 1 1 4 1 1 4 4 1 1 1 1 4 1 

’ ” '-"V» 

i r 1 1 » i ii  n ii  m ii  i it  j > n j m n m ii  h i u tj  m irnii  in  m ii  m t ii  i » i j » ill  t » i ? m i 

m 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 1 1 1 1 1 *"(^  fJViNG  ' ' NT^ft 8 ' 1 1 M * 1 1 1 * 1 11 1 11 1 * M 1 * 1 1 1 1 
n 1 1 m m m 1 1 1 1 n m m m ii  m m 1 1 1 1 1 1 nil  tlim  ni  1 1 1 1 n 1 1 m 1 1 1 m 1 1 1 1 m 1 1 1 1 

MCMtr  mot* 


Figure  /*-22. 


Input  Ciirdn,  FLATPAiv , l.x.s:  *>lo 


...M.hW-t! 

, > . , 999« ) 

.... Gifts** 

. . . . 



Ma9*Kf 

t. 

• 1 1 • 1 W 9 »» < 

....IkKI I»KI... 

iMaSlKtaai 

...Utft 

9 * » « »? . < <•?( 

...UWHKUL...... 

9 1 • « » ^ 1 



9 1 1 < » \ 1 1 1 »i 

...UNttHtill 

c e e 

9, 



9 > 1 • • 1 > 1 • * l 

1 » 1 « » • t < »§  ■ 

...a... IS  naan .3*  K In* 

* 

IIIIHIItHMIliitllHIIIII'  I'  lllllllll  101  lllllll  lllllltllUMIIIIIIIIIIMIItlll 
iMiiMiMMiN  • inmnann  nnti  m»»*  inn  * * * • * *»  ••  * *****  *»■  mm  »•««•••••» 

1 1 1 m i M m 1 1 m i * 1 1 1 1 m m i n i m<j  ft  iVr  fi  ijuri  niiiiiiimiiiiimiicimiiiii 


mimi'mmm'nmmmi  vjYi 
mimuiiiiinnmitii'iniftf): 


444444<<444444444<444444444444 

mjjuns  mum  jjssjs 

iiiiiiiiiiimiiiimiiiiiiiiiiii 


' i i ’ » i in 

1 1 1 m *?*jl{ii*X*  .»yM  ‘‘ty 


fiiiiiiiniiinniiniiniinnnn 

i^iiiiiiiiinniiiiiiiDniunn 

4 yiU  I<I4<<4444  <44444444441444444444 

tiiniiinssmiiiiiinmiitii 


1*^1  1 1 1 If  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14  I 

n 1 1 n 1 1 n n n n 1 1 1 m n n i n i n rt nj  y ij  i*iTi  11111111111111111111111111111111 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 m 1 Ij  n 'V LWy'  i »^  **»*•»  * * * 1 1 ••  1 * 1 m n 1 1 m 1 1 

mimiiminimiithi  n 11  m s n » 1 1 1 if  1 iifn  1 1 *»  m * 1 m 1 1 » 1 111 1 » 1 m 1 n 1 1 « » 1 


1 t * I « f • l • « V U M H >1  M » n If  n ) 

hacmtt  wo*# 


I' f };«« r «.•  /<  - 2 3 . Juptii:  r;ndn  n.ATi’AJ' . 


JOj- 


.,..tM4I ItKI 

— — ... 

ItKI ItKI ItKI.... 

.ItKI.. 

...ItKI.. 

iwaaf  |>Kf  aai 

■ aalklfittMt 

.ItKI 

ftft Uflfil.... 

• aallKlti 

iaaafik0£$awi 

ta  wflrttt  a aa* 

»Wi 

cM)1t;  

HillllMriifKM 



• 



in i?u a($a  aaa  wSfrKfia  a a 

1 1 1 H 1 1 1 1 II I » 111  1 1 II I H Ml  I I : M I » M Ml  liil  1 1 1 1 1 1 M 1 1 1 1 V I • * I M Ml  I II I III  I H 1 1 1 M 

i i i t i i i i 

I I I I II  I I I 11  I III  t I ft  I tit  I f I Ml  I II 


iiinnn!mmnMunimim  (^i 
nimiimmiiinimiirmi  Afi 


1 1 1 1 1 1 1 III  1 1 1 1 1 1 1 M 1 1 

u «■  MAl  ■ 

i mO ni  iVrfi  i xh  it  mi  i 
On 


14444441(4444444444444444444444 

lllllllllllllllllllllllll 

i iiitmiiiiiiii  iiiiiiiitiiutii 

w m m m i m m m m mi  m i m m m mm 


4i  i Mini  i m(«m 
•»i!»iU4i  Aw^itn 


III  Jlllllllllllllllllllllll 

1 1 1 1 ii  1 1 m ti  ii  1 1 1 1 1 1 1 * 1 1 1 n n Mm  n 


I I I III  I I I M I I II  III  I Ml  II  I II 

MiMimiiimmmiinmim 
ifrjiiiiiiiiiiiiiininiiiiinmn 

4^444144444144114441141444444441444 
ipjimiiiinmimiitiiiisimii 
Slllllllif  Hlllllllltllllllllll 

ii  ii  i m i m m'm  n n in  m i n mi  i 

L*  I Ml  y 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
I’ll  II  III  III!  Mil  Mil  Mill  III  Mill. 


i i i i t i i i « » « <i  « ii  • « i h n n nnartatanM  iiiii  * a » w a a a « c a*«  a a • • • w » w u w * ■ « a » w o » ■ ■ ■ a r am  a an  a a a aaw 
ri4MII  WOW 


1‘li'iirc  A — 2 4 . Input  Cnnl.'i,  I'l-ATI'Ai  , r.N<»>..p]i  4. 


- J 06- 


JNftOANC?  AT  a«0 

ism%) 

MEAL  1 MAC 


VLATf AK 

r MiiuiC  iIRi 

UlXg  HfWTHg..  9*9009909,00  »CTeM 
LOAD  OTtuCTOte  OfTtON«  12 


V*»-TA4€  tOUACf  AT  X»0 
tV0LT»| 

Hf*U  IHA6 


IMfCOANCC  AT  X«l 

- 10HMU 


volt  A DC  found  AT  X*C 


— s^rarn OTrew=vf  i.oftoooo  o.odoo-ot  i.oooerov  ~».»refr ramn ranRi 

3.0000  00  0.0000*01  2.0000  00  0.0000-01  MMO  0 0 0.0000*01  3.0000  0 0 0.0000*01 

— *.80«rd9  15.0065-01  1.0005  00  0*0005^1 


Of"? 

1.50000  OT 

VO"fVO( 

SOLUTION  r»ao*. 

,t*j  yoAfccoocet) 

0 

VL"CVDLT*»  VLAfOfOOCCtl 

\ 

2.0005 

00  -9.4000-01 

1.0000  00  -2.0390  00 

* 

2.0000 

00  -1 .1TT0  00 

2.0000  00  -9. 11  TO- 01 

fftV9\#«WCTiN**T21«  1.00005  00 


S0LU7I0H  CAAOO*  0 
VAAlOECUXft) XUttVOLUU VLAW 


,2.9*00  00  . -uju&joo 
2.0000  00  -2.0490  00 


1.0010  00  * 3.9030  90 

2. 00 TO  00  *0.1020-01 


asoiruiAifir 

OtAOHOOTtCO 


' 90 COOfclT  23002  0VTT9.  A00AV  AOCA.  004  | 
4V*V9f o on  TOAOAO*  0.  NUMOKA  Of  WAOHtNOt* 

— T. Yt  "Mi.fexfcut  Ion  TTo^i  5Voo  tec.  Yoi 2 


•04  •VT2S.T3TAL  AOf  A AVA1LA0LC*  1 01  TOT  OvftT" 
1N6».  0.  NUNOfO  Of  CXT"M9f  0N9*  3 

~1 0. 24.5 2 TUCSOAV  4~ftifT~?f  *S¥f Jv  - 


Figure  4-27,  Output  Listing,  FLATPAK,  Example  3 


i? 


h5«- 




.....Mil MB  nan Mat | !§§»¥** a MS! M» I>W M»..— I,K» 

■ T.“a 


muiMi*  wh. 


.3^, 


\! 


5 m j? » 1 1 »?nt 

5,,, » V.  • i 

5't  inltii  s^tull^SWUalii 


■\ 


5,..,?,,,.?...MH3llfcU, 


5 » . , . I . . . •$ * arfitfWMfclS* 


rtnmn**»*»»v»*n*<t*m*«*«mn9*ti*nuvnnm*iimmmummmr*  ***n  jwnnm  \ 


ilaiBNa  3»K8 


aaaaaaaaaa«a««ai4«MaauaaiaDaaitafaaaanaMaaaaiaaaaa\ 


llllllimiMMIMIMMim^llllllllllllillllMIISMIllMlllllllllllllllieilllll 

MaaaaaataaaMaaaaaMBMaaaaaaatai 

hi  in  m i ii  i n in  in  m » iii  m i rf  t 
mnmnnmmmmnmni 
i^iintimiiiiH.iiiimDmin 

4 ^44444  441 4 44 1 444  1 4 44 1 444  4 44a4  4<V  4 


I 4/4  f 4 


i i kii  i i ■aaaaaiaaauaanaaaaaaaaaaaaa 

n in  i ii  1 1 ii  1 1 it  1 1"  i ii  iii  m n n u' 
mmiii!timminti!mimi(^ 
imiiuiniiiiiiiiimiirnn 

44444444444444444444444444 4 4444bl4« 

smsisssssu>s$iHS)$sii!$s!4sb4»i 
I 8 1 1 1 1 1 1 II  III  I (1 1 1 1 1 1 III  1 1 1 • I a I 
111111117111111171111711111111111  K1  Ijl  U ]J  }'] 

1 1 1 1 m 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ii II l ii 


. ^ tXf*  1 1 1 • 1 1 1 III i 1 1 1 1 II 1 1 1 • III I M I M I 

•ii iTm  in  i n i n n ii  i m in  l n n n n i 


mmmmm 


iiiiiiiiiiiiiiiiiiiiiiiini 


imniinnnnHiiimiiiiiitiiiiiiiiiiTiiliriiiiFitiiiiiiiiiiiiiiiiiiiiiiiiiii 
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Figure  4-29. 


Input  Cards, 


FLATPAK2 , Example  1. 
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Figure  4-33. 


Input  Cards,  FLATPAK2,  Example  2. 
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Figure  4-31.  Input:  Cares,  FLATPAK2,  Example  3. 
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Figure  4-32.  Input  Cards,  FLATPAK2 , Example  4. 
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Figure  4-33.  Output  Listing,  FLMTAK2,  F:;amplc  1. 
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f 

n.  ATP  AX* 

■ ~TT*r«f*£xynnirfi 

LINE  LENGTH-  9,0000000  00  METERS 

LOAD  STRUCTURE  OPTION-  *1 

• 

meoubnct  chert  n-  i.ooooo  or 


*<HuT|ON  CMOKt 


TRANSFORMATION  MATRIX  INVERSION  e*»OR-  0 


VOMiVOLTM  VOAfOEGRBtS) 


VtRIVOLTSI  VL AC DEGREES) 


f. 8 3 70  - 01  -7.6170-01  J.rMD  00  -•••too  ot 

7.  TQfPrQg. lU.5iO_.Wt. I jit  3D  90 dtllttl* 


FABOUBNCVfHERTII-  1,00000  08 


SOLUTION  ERROR-  0 


TRANSFORMATION  MATRIX  INVERSION  ERROR*  0 

•IRC  VOMC VOLTS)  VO A( DEGREES) 


9.0080*01  •8,0460-0* 

6,8000-0*  9.1640  01 


VLMIVOLTSI  VLACOEGREESI 


*,4*10-01  -1,1790  0* 

jjjwiajw du iauL 


:q*r  USAGE  object  coot*  93*96  BYTES, ARRAV  AREA-  wot  BYTBS.TJTAL  AREA  AVAILABLE*  16IT9*  BYTES 

COMRILE  TIME-  l,J?  SEC.EXBCUT ION  TIME-  0.11  SBC.  10.3S.3B  TUBBOAT  4 OCT  77  BATRIV  - JAN  |B7*  V1LS 


Figure  4-34.  Output  Listing,  FLATPAK2,  Example  2. 


MMmMIlfMMW  Mm  M NtaMftl 


ERE OUENCV CHERT*)-  I .00000  08 

?Ig{n  « Slum  on  precision-0  s.- 1 06-03 
TRANSEORNATIOH  MATRIX  INVERSION  ERROR* 


SOLJMON  ERROR- 


VOR(VOLTS)  VOAIOEGOFESI 


VLM<  VOLTS  > VLAC  DEGREES  I 


CORE  OSAGE 
DIAGNOSTICS 
COMPILE  TIME- 


2.9940  00 

-IaJMZOL.CO 


-1.4520  00 

--Ji02JD.00 


9.9930-0* 
I.99AO  00 


-4.0S90  00 

r»*A»SQ-fil 


OBJECT  core-  53298  BYTES. ARRAY  AREA-  I29*  BYTES.TOS'L  area  AVAILABLE-  1*1792  BYTES 


NUMBER  oe  ERRORS- 
C .97  srC.EXECUTIOS  T j ME ■ 


NUMBER  OE  MARKINGS* 

0.1 P SEC.  10,39.29 


0.  NUMBER  OR  EXTENSIONS- 
TUESOAV  4 OCT  77 


VATEIV  - JAN  1974  VILS 


Figure  4-36. 


Output  Listing,  FLATPAK2,  Example  4. 
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V.  SUMMARY 

Four  digital  computer  programs,  XTALK,  XTALK  2,  FLATPAK,  FLATPAK  2,  for 
determining  the  electromagnetic  coupling  within  an  (n+1)  conductor,  uniform 
transmission  line  are  presented.  Sinusoidal  steady  state  behavior  of  the 
line  as  well  as  the  TEM  or  "quasi-TEM"  mode  of  propagation  are  assumed. 

XTALK  and  XTALK  2 consider  lines  consisting  of  n wires  (cylindrical 
conductors)  and  a reference  conductor.  The  surrounding  medium  is  homogeneous 
and  lossless.  XTALK  assumes  that  all  (n+1)  conductors  are  perfect  conductors 
whereas  XTALK  2 considers  the  conductors  to  be  lossy.  There  are  three  choices 
for  the  reference  conductor:  a wire,  a ground  plane,  an  overall  cylindrical 
shield. 

FLATPAK  and  FLATPAK  2 consider  (n+1)  wire  ribbon  (flatpack)  cables  in 
which  all  wires  are  identical  and  are  coated  with  cylindrical,  dielectric 
insulations  of  identical  thicknesses.  All  wires  lie  in  a horizontal  plane 
and  all  adjacent  wires  are  separated  by  identical  distances.  FLATPAK 
considers  the  wires  to  be  perfect  conductors  and  FLATPAK  2 considers  the  wires 
to  be  lossy.  The  dielectric  insulations  are  considered  to  be  lossless. 

General  termination  networks  are  provided  for  at  the  ends  of  the  line 
and  the  programs  compute  the  voltages  (with  respect  to  the  reference  con- 
ductor) at  the  terminals  of  these  termination  networks  for  sinusoidal  steady 
state  excitation  of  the  line. 
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APPENDIX  A 


I'* 

t' 


XTALK 


Program  Listing 


n n o n o o 


. ....  ^ 

C*  ******  **********************************************  ****************»*ITALX001 
c XTALK002 

C PROG BAS  XT AIK  XTALK003 

C (PORTIAN  IT,  DOUBLE  PRECISION)  XTALKO 0* 

C BRITTEN  BY  XTALK005 

C CUTTON  R.  PAUL  XTALK006 

C DEPARTMENT  OP  ELECT RICAI  BRGIIEEBIRG  XTALKOO? 

C UNIVERSITY  OP  KENTUCKY  XTALK008 

C LEXINGTON,  KBRTOCKT  *0506  ZTALK009 

C ZTALKOIO 

C A DIGITAL  COMPUTER  PHOGRAH  TO  COBPOTE  THE  TERMINAL  TOLTAGES  XT ALI0 11 

C (8ITH  RESPECT  TO  TBE  REPEBERCE  CORDDCTOB)  AT  THE  ENDS  OP  A XTALKO 12 

C HOLT ICON DOCTOR  TEARS  MISSION  LIMB  POB  TBE  TEH  RODZ  OP  XTALK0 13 

C PROPAGATION.  XTALKO IN 

C XTALKO IS 

C TBE  DISTBIBOTED  PARABETEB,  ROLTICORDOCTOB  TRANSMISSION  LINE  XTALKO 16 

C EQUATIONS  ARE  SOLVED  POR  STEADY  STATE,  SINUSOIDAL  EXCITATION  XTALKO 17 

C OP  TBE  LINE.  XTALKO IB 

C XTALKO 19 

C THE  LINE  CONSISTS  OP  R HIRES  (CYLINDRICAL  CONDOCTOBS)  AND  A XTALK020 

C REPERENCE  CONDUCTOR.  TBE  RBPEREHCE  CONDUCTOR  BAT  BE  A EIRE  XTALK021 

C (TYPE* 1) , AN  1NPIRXTE  GROUND  PLANE  (TYPB*2) , OR  AN  OVERALL  XTALK022 

C CYLINDRICAL  SHIELD  (TYPE*3)  XTALK023 

C XTALKO 2« 

C THE  N HIRES  ARE  ASSUMED  TO  BE  PARALLEL  TO  BACH  OTBER  AND  THE  XTALK025 

C REPERENCE  CONDUCTOR.  XTALK026 

C XTALK027 

C THE  N HIRES  AND  THE  REPERENCE  CONDUCTOR  ARB  ASSURED  TO  BE  XTALK028 

C PERPECT  CONDUCTORS.  XTALK029 

C XTALK030 

C THE  LINE  IS  IMMERSED  IN  A LINEAR,  ISOTBOPIC,  AND  HOMOGENEOUS  XTALK031 

C MEDIUM  HITS  A RELATIVE  PERMEABILITY  OP  BOR  AND  A RELATIVE  XTALK032 

C DIELECTRIC  CONSTANT  OP  ER.  THE  MEDIUM  IS  ASSUMED  TO  BB  LOSSLESS.  XTALK033 

C XTALK03* 

C LOAD  STRUCTURE  OPTION  DEPINITIONS:  XTALK035 

C OPTION* 1 1 ,THEVENIN  EQUIVALENT  LOAD  STRUCTURES  NITH  DIAGONAL  XTALK036 

C IMPEDANCE  MATRICES  XTALK037 

C OPTION* 12, THEVENIN  EQUIVALENT  LOAD  STRUCTURRS  HITH  POLL  XTALKO 38 

C IMPEDANCE  MATRICES  XTALK039 

C OPTION* 21, NORTON  EQUIVALENT  LOAD  STRUCTURES  HITH  DIAGONAL  XTALK040 

C ADMITTANCE  MATRICES  XTALKO* 1 

C OPT ION* 22, NORTON  EQUIVALENT  LOAD  STRUCTURES  HITH  POLL  XTALK042 

C ADMITTANCE  MATRICES  XTALK043 

C XTALKO** 

C SUBROUTINES  USED:  LEQT1C  XTALK045 

C XTALKO *6 

C* ****** ****** ** ****** *««• ************** * * ****** ****** ******** *••*•••* **XT ALK0C7 

XTALK048 

ALL  VECTORS  AND  MATRICES  IN  THE  POLLOHING  DlnSSSION  STATEMENTS  XTALK049 

SHOULD  BE  OP  SIZE  N HHERE  N IS  TBE  NUMBER  OP  HIRES (EXCLUSIVE  OP  XTALK050 
THE  REPERENCE  CONDUCTOR),  L,  E. , 10  (N) , IL (N) , TO (N, N) , YL (N, N) , B (N) , XTALK051 
A (N,N)  ,HA(N)  »M1  {N,  N)  , M2  (N,  N)  ,V1(H)  ,V2(N)  XTALK052 

XTALK0S3 

IMPLICIT  REAl*8  (A-H,0-Z)  XTALKOS* 

INTEGER  TYPE, OPTION  XTALK055 

REAL*8  L,R002PI,MUR  XTALK056 

COMPLEX* 16  XJ,I0(  2) , IL ( 2),Y0{  2,  2),IL(  2,  2),A(  2,  2),B{  2),  XTALK057 

1 H A ( 2)  , N 1 { 2,  2),M2(  2,  2),Vt{  2),V2i  2)  ,SOMO,  SOUL, VO,  VL,ZEROC,  XTALK058 

2C,A1,A2,ONBC  XTALK059 

DATA  PI/3.  141592653D 0/, V/2.997925D8/  XTALK060 

DATA  CHTM/2.  5*D-5/,HU02PI/2.  D-7/,P5/.5D0/,ZBBO/0. DO/, ONE/1. DO/,  XTALK061 


/,***  •S'JT*  “ 


1TR0/2. D0/,FOUR/«.D0/,OiE80/180.D0/ 
ON  EC*DCHPLX  ( 1.  00,0.  DO) 

ZEBOC=DCHPLX  {0.  D0,0.  DO) 

XJ*DCHPLX(0. DO, 1.  DO) 

C 

C*****?RBQDENCY  INDEPENDENT  CALCULATIONS* 
C 

C BEAD  AND  PBIHT  INPUT  DATA 


BEAD (5, 1)  XI P8, OPTION, N, SB, HUB, L 

1 FORHAT (9X, I* ,2 (81,12) ,3(5X,E10.3)) 

IP  (TYPE.GE.1. AND.TYPE.LE.3)  SO  TO  3 
8RITE  (6, 2)  , 

2 FOBHAT (•  STRUCTUBE  TYPE  ERROR*//'  TIPE  HUST  EQUAL  1,2, OB  3*///> 
GO  70  82 

3 IP (OPTION. BQ« 1 1. OB. OPTION. EQ. 12)  GO  TO  5 
IP  (OPTION,  BQ.21.  OR. OPTION-  EQ.22)  GO  TO  5 
RBITE(6,4) 


XTALK062 

XTALK063 

XTALK064 

XTALK065 

XTALK066 

►XTALK067 

XTALK088 

XTALK069 

XTALK070 

XTALK071 

XTALK072 

XTALK073 

XTALK074 

XTILK075 

XTALK076 

ZTALX077 

XTALK078 

XTALK079 


4 FOBHAT (•  LOAD  STBUCT USE  OPTION  BRROB'//'  OPTION  BUST  EQUAL  1 1, 12,2XTALK080 


11, OB  22'///) 

GO  TO  82 

5 WRITE (6, 6)  N, TYPE, OPTION, L,Et, HUB 

6 FOFHAT(1H1,50X,*XTALK*/// 

145X,I2,'  PARALLEL  BIBBS*/// 

243X,  * TIPE  OP  STRUCTURE3*  ',11/// 

341X, * LOAD  STBUCTUBE  OPTION*  *,I2/// 

419X, * LINE  LENGTH*  *,1PE13.6,*  HETBBS*/// 

532X, ' DIELECTRIC  CONSTANT  OP  THE  HEDIDR*  *,1PE10.3/// 

63 1 X , * RELATIVE  PERSE ABILITY  OF  THE  HBDXUH*  • , 1P810. 3///) 
GO  TO  (7, 15r 1 1) .TYPE 

7 BEAD  (5,8)  BNO 

8 FOBHAT  (51,810.3) 

WRITE (6, 9)  BNO 


XTALK081 
XTALK082 
XTALX083 
XTALN084 
XTALK085 
XTALK0C6 
XTAXK087 
XTALX088 
XTALK089 
XTALX090 
XTALX91 
XTALK092 
XTALX093 
XTA?  '’09* 


9 POR-ITC  REFERENCE  CONDUCTOR  FOB  LINE  YOLTACBS  IS  A HIRE  HJTB  HADIXYALK095 


1 US*  • , 1PE1Q.  3,  * HHS'////) 

RWO*BNO*CHTH 
RRITE(6, 10) 

10  FORHAT ('  SIRE  NUS8BB * ,4X , • BIBE  RADIUS  (NILS)*, 181, 

1'Z  COORDINATE  (H ETERS)  • , 24X, • Y COORDINATE  (HETBBS)*,//) 
GO  TO  19 

11  READ(5, 12)  RS 

12  FORHAT(5X,E10. 3) 

NRITB (6, 13)  BS 


XTA1K096 

XTALX097 

XTALK098 

XTALK099 

XTALR100 

XTALK101 

XTALK102 

XTALK103 

XTALK104 


13  PORHAT ('  BEFEBENCE  CONDUCTOR  FOR  LINE  VOLTAGES  IS  A CYLINDRICAL  OVXTALX105 

1 ER ALL  SHIELD  NITH  INTERIOR  RADIUS*  *,1PE10.3,*  HETERS*////)  XTALK106 

RS2*RS*RS  IV»LR107 

WRITE  (6,  14)  XT AI.X  108 

14  POBH AT  (•  HIRE  BOBBER • , 2X ,' HIRE  RADIUS  (NILS)*,  2X, ' SEPAP ATIOB  BBTHXTALS109 

IEEE  HIRE  AND  CENTER  OF  SHIELD  (HE'.ERS)  *, 6X, • ANGULAR  COORDINATE  (DEXTALK1 10 
2GREBS) '//)  XTALX1 1 1 

GO  TO  18  XTALK112 

15  HBITE(6, 16)  XTALR1 13 

16  FORHAT ('  REFERENCE  CONDUCTOR  FOR  LINE  VOLTAGES  IS  AN  INFINITE  GROUXTALK1 14 


i sc  "Lass*////) 

HRITE(6, 17) 

17  FORHAT"  HIRE  ROBBER  * , 4X  , ' HIRE  RADIUS  (HILS)*,19X, 

I'HOBZZ*.  AL  COORDINATE  { HETEES)  • , 16X,  • HIRE  HEIGHT  (HETERS)*,//) 

READ  AND  PRINT  LINE  DIHERSIONS  AND  CONFUTE  THE  CHARACTERISTIC 
IHPEDANCE  HATBIX,  ZC  (STORE  ZC  IN  ARRAY  Hi) 


XTALK1 IS 
XTALK1 16 
STALE* 17 
XTALK1 18 
XTALX1 19 
XTALK120 
ITA1-K121 
ITALIC  122 
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c 

c 

c 

c 


c 

c 


18  C=HOc2?I*OMEC*?*DSQRT(HOB/IB) 

DO  24  1*1,1 

READ(5,19)  R V, Z, Y 

19  70RHAT (3  (51, SIC. 3) ) 

BBXTS(6.20)  I,BB,Z,T 

20  FORMAT (2X, 12, 13X, 1PE10. 3,27X, 1PE 10.3,351, 1PE1 0.3/) 

Y1  (I)=ONEC*Z 

V2(I)*0HEC*Y 

RW*RB*CHTH 

CO  TO  (21,22,23)  ,TYPE 

21  DI2*Z*Z+I* 7 

HI  (1,1)  *C*D10G(DI2/(BN*RflO) ) 

GO  TO  24 

22  HI (I,I)*C*DLOG(TRO*Y/RH) 

GO  TO  24 

23  HI  (I,I)*C*DLOG((BS2-Z*Z)/(RS*RH)  ) 

24  CONTIHOE 
IF(N.EQ.  1*  GO  TO  29 
K1*N-1 

DO  28  1*1, K1 
K2*I»1 

DO  28  J*K2,R 
ZI*DREAL  (Y1 (I) ) 

ZJ*DREA3.(Y1(J)  ) 

YI*DREAL  (Y2 (X) ) 

YJ*DREAL  (V2(J) ) 

GO  TO  (25,26,27) ,TIPB 

25  DI2*ZI*ZI*II*YI 
DJ2*XJ*Z J*TJ*YJ 
XD*ZI-ZJ 
YD-YI-YJ 

DIJ2»ZD*ZD*TD*YD 

HI (X, J) *P5*C*DLOG (DI2*DJ2/  {RB0*RB0*DIJ2) ) 

Hi  (J,I)*H1<I,J) 

GO  TO  28  1 

26  ZD*ZX-ZJ 
YD*TI-YJ 

DIJ2*ZD*ZD>YD*YD 

HI  (I, J) *P5*C^DIOG (OME*FOUR*YI*TJ/D2J2) 

HI  (J,I)-H1  (I,J) 

GO  TO  28 

27  THETA* (II- YJ)*PI/OHE80 
RI2»ZI*ZI 
■J2*ZJ*ZJ 

HI (I, J) *P5*C*DtOG ( (BJ2/BS2* • (II2*RJ2+RS2*RS2-TRO*ZX»ZJ*RS2* 
1DCOS(THETA))/(RI2*BJ2*BJ2*8J2-TBO*ZI*ZJ*M2*1>COS  (THETA))) 

HI  (J,I)*H1  (I,  J) 

28  COITINOE 

COMPOTE  THE  IN TERSE  OF  THE  CHABACTEBXSTIC  XHPEDAHCS  HATRIX, 
(STORE  ZCIRV  IS  ARRAY  H2) 

29  DO  31  1*1, H 
DO  30  J*1,N 
A(I,J)»M1(I,J) 

30  H2<I;.i)*7?»OC 

31  H2  (1,1) *ONSC 

CALL  LEQT1C(A,H,if,H2,H,N,0,BA,KES) 

KER*KER- 128 


XTALR123 
XT  AX  X 1 24 
XTALK 125 
STALK 126 
XTA1K127 
XTALk 128 
XTALX129 
XTALK 130 
XTALK131 
XTALK 132 
XTALK 133 
XTALK 134 
XTALK 135 
XTALK 135 
XTALK 137 
XTALK 138 
XTALK 139 
XTALK140 
XTALK 141 
XTALK142 
XTALK143 
XTALK 144 
XTALK 145 
XTALK 146 
XTALK 147 
XTALK 148 
XTPLK149 
XTALK 150 
XTALK 151 
XTALK 152 
XTALK153 
XTALK 154 
XTALK 155 
XTALK 156 
XTALK 157 
XTALK158 
XTALK 159 
XTALK 160 
XTALK 161 
XTALK162 
XTALR163 
XTALK 164 
XTALK 165 
XTALK 166 
XTALK 167 
XTALK 168 
XTALK 169 
XTALK170 
XTALK 171 
ZCXIY  XTALK 172 
XTALK 173 
XTALK 174 
XTALK175 
XTALK 176 
XTALK 177 
XTALK 178 
XTALW179 
XTALK 180 
XTALK 181 
XTALK 182 


READ  AND  PRINT  ENTRIES  IN  LOAD  A DHITTANCE (IMPEDANCE)  MATRICES  XTALK183 
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onno  n n n a n n n n n ft 


AID  SHOBT  CIRCUIT  CURRENT  SOURCE (OPBI  CIRCUIT  VOLTAGE  SOORCB) 
VECTORS  (STORE  ADHXTTAICB  (IHPBDANCB)  MATRICES  AT  1*0  IB  ARRAI  TO 
AID  THOSE  AT  **1  II  ARB AT  TL.  STORE  SHORT  CIRCOIT  CORREIT  SOORCB 
(OPBI  CIRCOIT  VOLTAGE  SOORCB)  VECTORS  AT  1*0  IB  ABRAT  10  AID 
THOSE  AT  X*L  II  ABRAT  IL.) 

IP  (OPTION.  EQ.  1 1.  OR. OPTION.  EQ.  12)  GO  TO  34 
8R1TE(6,32) 

32  POBHAT (//, 18X, * IDHITTAICE  AT  X*0 • , 50X, 'COBtEIT  SOORCB  AT  X*0», 
112X,(ADHITTAMCE  AT  X»L* , 10X, •CORBRIT  SOURCE  AT  X*l‘/) 

181X1(6,33) 

33  POBHAT (2 IX,' (SIBHEIS) • , 231, ' (AHPS) *,22X,« (SIERBIS) • ,23X,» (ARPS) •/) 
GO  TO  37 

34  IBITB(6, 35) 

35  PORHAT (//, 18X, ' IBfrfDANCE  AT  X*0' ,111,* VOLTAGE  SOORCB  AT  1*0* , 

1 12X, 'IHPIDANCB  AT  X*L* ,1 IX, 'VOLTAGE  SOORCB  AT 

HRITE(6, 36) 

36  POBHAT  (23X,‘ (OH8S) ' , 23X, • ( VOLTS) • ,24X, • (OHHS) • ,23X,« (70LTS)  /) 

37  HBITE(6, 38) 

38  POPHAT ('  BITBT* , 10X, 'REAL* ,1 IX, * IHAG* , 1 IX,' BEAL* , 1 1X,'IHAG', 11X, 

1 'BEAL*  , 1 1X  ,*  IHAG*  ,11X,,REAL,,11X,'  IHAG'//) 

DO  41  1*1,1 

READ(5,39)  TOR, TOI, 10(1) , TLB, TLI, 11(2) 

39  PORHAT  (8  (E10. 3) ) 

TO  (1,1) *TOR*XJ*TOI 
TL  (1,1) *TLR+XJ*TLI 

WRITE (6, 40)  I, I, TO  (1,1) ,10(1) ,TL(1,I) ,IL(I) 

40  POBHAT  (IX,  12, 2X,  12,8 (SX,  1PE10.3)/) 

41  CONTINCE 

IP  (OPTIOI.BQ.11.OR.OPTIOI.BQ. 21)  GO  TO  45 
IP(H.BQ.  1)  GO  TO  45 
LG  44  I*  1,  R1 
K2*I* 1 

DO  4^  J*K2,H 

READ(5,42)  TOR, TOI, TLB, TLI 

42  PORHAT  (2  (E10, 3) , 20X, 2 (B1 0. 3) ) 

TO(I,J)*TOR»XJ*TOI 

TL(I,J)*TLR+XJ*TLI 

TO  (J,I) *T0 (I, J) 

TL  (J,I)*TL(I,0) 

WRITB(6,43)  I,J,TO(I,J) ,7L(I,J) 

43  PORHAT ( IX, X2,2X,X2,2 (5X, 1PE10. J) ,30X,2 (5X, 1PB iO. 3) ) 

44  COITIIOE 

IP  THEVEII!  EQUIVALENT  IS  SPECIPIED,  SWAP  EITRIES  II  HI  AID  H2. 

HI  WILL  COITAIH  ECINV  AID  K2  WILL  CONTAIN  ZC. 

45  IP  (OPTION.  EQ. 21.  OB. OPTION.  EQ.22)  GO  TO  48 
DO  47  1*1, 1 

DO  46  J*1,I 
A1*H1 (I,J) 

A2*H2 (I, J) 

HI (I, J) * A2 
HI (J,I)*A2 
H2 (I, J) *A1 

46  H2(J,I)  = A1 

47  IL(I)=-Il(I) 

COHPOTB  THE  8ATRIX  ZC*ZL*ZCIIY*Z0  POL  THE  TK5VENII  EQUIVALENT 
OR  ZCINV+IL*ZC*TO  P OB  THE  NORTON  EQUIVALENT.  .(TORE  IK  ABRAT  H2. 
COHPUTE  THE  HATRIX  ZCINV*ZO  POB  THE  THEY ENIN  EQUIVALENT  OB 


XT  ALB  184 
XTALK1C5 
XT ALII 86 
XT ALII 87 
XTALN188 
XTALI189 
XT All 190 
XXALR191 
XTUK192 
XTALK193 
XTALK194 
XTALB195 
XTALK196 
XT AIK 197 
XTALK198 
XTALK199 
XTALK200 
XTALK201 
XTALK202 
XTALR203 
XTALK204 
XTALK205 
XTALK206 
XTALK207 
XT&LK208 
XTALK209 
XTALK210 
XTALK211 
XTALK212 
XTALK213 
XTALK2 14 
XTALK215 
XTALK216 
XTALK2 17 
XTALK218 
XTALK2 19 
XTALK220 
XTALK221 
XTALI222 
XTALK223 
XTALK224 
XTALK225 
XTALK226 
XTALK227 
XTALR228 
XTALK229 
XTALK230 
XTALK231 
XTALK232 
XTALK233 
XTALK234 
XTALK235 
XTALK236 
XTALK237 
XTALK238 
XTALK239 
XTALK240 
XTALK241 
XTALK242 
XTALK243 
XTALK244 
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nnonn 


c 

c 

c 

c 

c 

c 


ZC*Y0  FOB  THE  HORTOM  EQOIYALBBT.  STORE  XI  ARRAY  HI. 

ITALK245 

COMPOTE  THE  YECTOB  Zl*ZCIHY*Y0  YOB  TBE  THEVEIXI  EQOIYALEIT  OB 

XT»LK246 

YL*ZC«X0  FOB  THE  IOBTOI  EQOIYALBIT.  STOBE  II  ABB AY  T2. 

XTALK247 

COHPOTE  THE  YECTOB  ZCIIY»Y0  FOB  THE  THEY El XI  EQOXYALEIT  01 

XTALK2I8 

ZC*X0  FOB  THE  IOBTOI  EQOXYALEIT.  STOBE  11  ABRAY  Y1. 

XTALK249 

ZTAIK2S0 

48 

IF  (CPTXOI. BQ. 12.0R.0PTI0B. EQ. 22)  GO  TO  54 

ITALK251 

DO  50  1*1,1 

XTALK252 

SOMO*ZEBOC 

XTALK253 

DO  49  J*1,l 

XTALK254 

A (X, J) *81 (X, J) •Y0(J,J) 

XTALK253 

49 

S0H0*S0H0«-81  (X,  J)  *10  (J) 

XTALK256 

50 

Y1  (I)-SOHO 

XTALK257 

DO  52  1*1,1 

XTILX258 

DO  51  J*1,l 

XTALK259 

51 

H2  (X, J) *YL  (X,X) *A (X, J) »H2(X,J) 

XTALK260 

52 

Y2  (X)  *IL  (1,1)  *Y1  (I) 

XTALK261 

DO  53  1*1,1 

XTALK262 

DO  53  J*1,l 

XTALK263 

53 

HI  (X,J)*A(Z, J) 

XTALX264 

GO  TO  62 

XTALX265 

54 

DO  57  1*1,1 

XTALK266 

SOHO-TEBCC 

XTALK267 

DO  56  J*1,l 

XTALK26o 

SOHL-ZEROC 

XTALK269 

DO  55  K* 1, 1 

XTALX270 

55 

S0HL*S0Hl+H1 (I , K)  * YO  (K,  J) 

XTALX271 

SOHO*SOH9*H1  (I,  J)  *10  (.3) 

XTALX272 

56 

A (I, J) *S0HL 

XTALK273 

57 

Y1  JI)*S0H0 

XTALK274 

DO  60  X*1,l 

XTALK275 

S0H0=ZER0C 

XTALK276 

DO  59  J*1,l 

XTALK277 

SOHL-ZEROC 

XTALK278 

DO  58  K*  1, 1 

XTALK279 

58 

SOHL*SOHL+YWL,K)*A(K,J) 

XTALK280 

H2  (I,  J)  *S0HL*H2  (X,  J) 

XTALK281 

59 

SOHO-SOHO*YL(I,J)*Y1 (J) 

XTALX282 

60 

Y2  (X) *S0H0 

XTALK283 

DO  61  1*1, » 

XTALK284 

DO  61  J*1,l 

XTALK285 

61 

H1(X,J)*A*I,J) 

XTALK286 

62 

BL*TIO*PI*DSQRT(HOH*BB) *l/» 

XTALK287 

IF  (KER.IR. 1)  KER*0 

XTALK28& 

IB ITE (6, 63)  KER 

XTALB289 

63 

FORHAT (//, ' CHARACTERISTIC  IHP2DAICE  HATBXX  IIYEISIOI  ERROR* 

',12  X1UK290 

1//) 

XTALK29 1 
XTALK292 

XTALK29I 

64 

COITIIOE 

XTALK295 

RBAD(5,65, IID*82)  F 

XTALK796 

65 

FORMAT (E10.3) 

XTALK297 

BETAL*BL*F 

XTALK298 

DS*DSXI (BETAL) 

XTALK299 

DC*DCOS ( BETAL) 

XTALK300 

XTALK301 

COHPOTE  THE  TERM1IAL  YOLTAGES 

XTALK302 

XTALK303 

FORM  THE  EQOATXOIS 

XTALK304 

XTALK305 

n nn  nn  n 


IT (OPTION. BQ. 12. OB. OPTION. EQ. 22)  GO  tO  68 
DO  67  1=1,  N 
DO  66  3=  1,  N 

66  A(I,J)  =X  J=DS*fl2  (I,  J) 

A(I,I)=DC*(YO(I,I)  *11(1.1))  *A(I,  I) 

67  B (I)  =DC*I0  (I)  ♦XJ*DS*V2  (I)  *11  (1) 

GO  TO  71 

68  DO  70  1=1,  N 
DO  69  0=1,  H 

69  MI,J)=XJ*DS*a2(I,J)*DC*(I0(I,J)  *YL(I,J)) 

70  B (I) =DC*I0  (X) *XJ*DS*V2 (I) +11 (I) 

SOLVE  THE  E00ATI0NS 

71  CALL  LBQT1C  (A,N,M,B, 1, H, 0, VA ,IEB) 

IBB-IBB-128 

IF  (IBB.  BE.  1)  IB8*0 
BBITE (5,72)  F, IBB 

72  FORMAT (1 B1 ,'  FREQUENCY (HERTZ)*  • .1FB11.4, 10X, 'SOLOTIOR  ERROR*  •, 
12X.I2///) 

8RITE(6,73)  t 

73  FORMAT (1 6X,» HIRE' ,8X , 1 YOB (VOLTS)  ,,3X,,Y0A(DBGBBES) ',8X, 

1 • VLB (VOLTS) ' ,3X, ' YLA (DEGBBBS) •///) 

COHPOTB  AMD  PBIMT  TUB  TEBBXVAL  VOLTAGES 

DO  75  1=1, B 
SUH0*ZER0C 
DO  74  0=1, M 

74  SOB0=S0B0*B1 (I,J)*B(0) 

75  BA (I)=XO*DS* (SDH0-V1 (I) ) ♦DC*B(I) 

DO  81  1*1,11 

IF  (OPTION. EQ.  11.OB.OPTIOi.BQ.  12)  GO  TO  76 
V0=B(I) 

VL*NA (I) 

GO  TO  79 

76  IF  (OPTION. EQ. 1 2)  GO  TO  77 
V0*I0(I)-Y0(I,I)*B(I) 

VL=-IL (I)  ♦ YL (1,1) *IA (I) 

GO  TO  79 

77  SUB0*ZEP0C 
S0B1=ZEBCC 
DO  78  0=1, B 
SUH0=S0H0*Y0 (I.J) *B(J) 

78  S0HI=S0BI*YL(I,J)*HA(J) 

VO-IO(I) -SUMO 

Vl*-IL (I) + SUBL 

79  VOM=CCABS (VO) 

VLH=CD AB3 ( VL) 

VOB=DRBAL (VO) 

VOI=DIMAG (VO) 

VLB=DBBAl (VL) 

VLI=DXBAG  (VL) 

IF  (VOR.EQ.  ZERO.  AND.  VOI.BQ.ZEHO)  VOB=CHE 
IF  (VLB.EQ. ZERO. AND. VLI. EQ. ZEBO)  VLR=CNE 
V0A=DATAB2  (VOI,VOB) *ONE80/PI 
VL A=DATAM2 (VII, VIB) •ONE80/PI 
BRITE(6, 80)  I„V0B,V0A,VlH„VLA 

80  F0RBAT(17X,I2,8X,1PE10. 3,3X,1PE10.3,10X,1PE10.3,3X, 1 PEI 0.3/) 

81  CONTINUE 
GO  TO  64 


XTALK306 
XTALK307 
XTALN308 
XTALK309 
XTALK310 
XTALK311 
XTALK312 
XTALK313 
XTALK3 14 
XTALB315 
XTALK316 
XTALK317 
XTALK318 
XTALK319 
XTALK320 
XTALK321 
XTALK322 
XTALK323 
XTA1K324 
XTXLK325 
XTALN326 
XTALK327 
XTALR328 
XTALK329 
XTALK330 
XTALN331 
XTALK332 
XTA-K333 
XTALN334 
XTALK335 
XTALK336 
XTALK337 
XTALK338 
XTALK339 
XTALN340 
XTALK341 
XTALK342 
XTALK343 
XTALK344 
XTALR345 
XTALN346 
XTALK347 
XTALR348 
YTALK349 
XTALK350 
XTALK351 
XTALK352 
XTALK3S3 
X*l  ALK354 
XTALK355 
XTILN3S6 
XTALK357 
XTALB358 
XTALK3S9 
XTALK360 
XTALK361 
XTALK362 
XTALK363 
XTALK364 
XTALK365 
XTALK366 
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T 


82  STOP 
BSD 


XTUK3«7 

XTJU.K368 


-130- 


TABLE  A-l 


Delete  Card  054 

Card  Number 

Changes  in  XTALK  to  Convert 

to  Single  Precision  Arithmetic 

Double 

Single 

056 

REAL  *8 

REAL 

057 

COMPLEX  *16 

COMPLEX 

060 

3. 141592653D0 

3. 1415926E0 

060 

2. 997925D8 

2. 997925E8 

061-062 

change  all 

D’ s to 

E's 

063 

D CMP LX (1. DO, 0. DO) 

CMPLX(1.EC ,0.E0) 

064 

DCMPLX(0.D0,0.D0) 

CMPLX (0 . EO , 0 . EO ) 

065 

DCMPLX (0 . DO . 1 . DO ) 

CMPLX(0.E0,1.E0) 

123 

DSQRT 

SQRT 

134 

DLOG 

ALOG 

136 

DLOG 

ALOG 

138 

DLOG 

ALOG 

145 

DREAL 

REAL 

146 

DREAL 

REAL 

147 

DREAL 

REAL 

148 

DREAL 

REAL 

155 

DLOG 

ALOG 

161 

DLOG 

ALOG 

167 

DLOG 

ALOG 

168 

DCOS 

COS 

168 

DCOS 

COS 
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Card  Number 

Double 

Single 

287 

DSQRT 

SQRT 

299 

DSIN 

SIN 

300 

DCOS 

COS 

353 

CDABS 

CABS 

354 

CDABS 

CABS 

355 

DREAL 

REAL 

356 

DIMAG 

AIMAG 

357 

DREAL 

REAL 

358 

DIMAG 

AIMAG 

361 

DATAN2 

ATAN2 

362 

DATAN2 

ATAN2 
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APPENDIX  B 


XTALK2 


Program  Listing 
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c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 
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PROGRAM  IT ILK 2 

(FORTRAN  IT,  DOUBLE  PHECISIOH) 

BRITTEN  BT 

CLAYTON  B.  BIOL 

DEPARTBENT  OF  ELECTRICAL  ENGINEERING 
UNIVERSITY  OP  KENTUCKY 
LEXINGTON,  KENTUCKY  40506 

A DIGITAL  CONPUTER  PROGRAH  TO  COBPUTZ  THE  TERRINAL  VOLTAGES 
(WITH  RESPECT  TO  THE  REFERENCE  CONDUCTOR)  AT  THE  ENDS  OF  A 
HULTICON DOCTOR  TBANSBISSXON  LINE  FOR  THE  TEH  BODE  OF 
PROPAGATION. 

THE  DISTRIBUTED  PARABETER,  HULTICON DOCTOR  THANSHISSION  LINE 
EQUATIONS  ARE  SOLVED  FOR  STEADY  STATE,  SINUSOIDAL  EXCITATION 
OF  THE  LINE. 

THE  LINE  CONSISTS  OF  N HIRES  (CYLINDRICAL  CONDUCTORS)  AND  A 
REFERENCE  CONDUCTOR.  THE  REFERENCE  CONDUCTOR  HAY  BE  A HIRE 
(TYPE=1),  AN  INFINITE  GROUND  PLANE  (TYPE-2) , OR  AN  OVERALL 
CYLINDRICAL  SHIELD  (TYPE-3). 

THE  N HIRES  ARE  ASSURED  TO  BE  PARALLEL  TO  EACH  OTHER  AND  THE 
REFERENCE  CONDUCTOR. 

THE  H HIRES  AND  THE  REFERENCE  CONDUCTOR  ARE  CONSIDERED  TO  BE 
IN PERFECT  CONDUCTORS.  THE  SELF  INCIDENCES  OF  EACH  HIRE  AND  THE 
REFERENCE  CONDUCTOR  INCLUDE  SKIN  EFFECT. 

THE  LINE  IS  IHNERSED  IN  A LINEAR,  ISOTROPIC,  AND  HOHOGENEOUS 
BEDIUN  HITH  A RELATIVE  PERHEABILITY  OF  BUR  AND  A RELATIVE 
DIELECTRIC  CONSTANT  OF  ER.  THE  BEDIUN  IS  ASSURED  TO  BE  LOSSLESS. 

LOAD  STRUCTURE  OPTION  DEFINITIONS: 

OPTION- It, THEVENIN  EQUIVALENT  LOAD  STRUCTURES  HITH  DIAGONAL 
INPEDANCE  HATRICES 

OPTIOA-12, THEVENIN  EQUIVALENT  LOAD  STRUCTURES  HITH  FULL 
INPEDANCE  NATRICES 

OPTION-21,  NORTON  EQUIVALENT  LOAD  STRUCTURES  HITH  DIAGONAL 
ADNITTARCE  HATRICES 

OPTION- 22, NORTON  EQUIVALENT  LOAD  STRUCTURES  HITH  FULL 
ADBITTANCE  MATRICES 

SUBROUTINES  USED:  LEQT1C,EIGCC 


XTALR001 

XTALK002 

XTALK003 

XTALK004 

XTALK005 

XTALK006 

XTALK007 

XTALKOOS 

XTALK009 

XTALK010 

XTALKO 1 1 

XTALKO 12 

XTALKO 13 

XTALKO 14 

XTALKO 15 

XTALKO 16 

XTALKO 17 

XTALKO IB 

XTALKO 19 

XTALK020 

XTALKO 21 

XTALK022 

XTALK023 

XTALKO 24 

XTALK025 

XTALKO 26 

XTALK027 

XTALKO 28 

XTALKO 29 

XTALK030 

XTALK031 

XTALKO 32 

XTALKO 33 

XTALK034 

XTALK035 

XTALK036 

XTALKO 37 

XTALK038 

XTALK039 

XTALK040 

XTALK041 

XTALK042 

XTALKO 1 3 

XTALK044 

XTALK045 

XTALKO 46 

XTALK047 


C****************************************»******************************XTALKd48 


C 

C 

c 

c 

c 

c 

c 

c 


XTALK049 

ALL  VECTORS  AND  HATRICES  IN  THE  FOLLCHING  DIMENSION  STATEMENTS  XTALK050 

SHOULD  BE  OF  SIZE  N HHERE  N IS  THE  NUHBEP  OF  HIRES  (EXCLUSIVE  OF  XTALKO 51 
THE  REFERENCE  CONDUCTOR) , I.E.,  NS  (R) ,C  (N, N) ,Z  (N) , Y (N) ,CI (N, N) , XTA£K052 
10  (N)  ,ZL  (N)  , YO  (R,N)  . YL(N,N)  ,B(N)  , A ( N , N)  , P (N,  N)  , EN(N)  ,BP(N)  , XTALK053 

HI  (N,N) ,H2(N,N)  ,V1 (N) ,V2 (N),T(N,N)  ,TI (N, X) ,G (N) ,V3(X) , HA (R)  XTALK054 

THE  VECTOR  BK  BUST  BE  OF  LENGTH  2N(R*1)  XTALK055 

XTALK056 

IMPLICIT  REALMS  (A-H,0-Z)  XTALK057 

INTEGER  TYPE, OPTION, NS ( 2)  XTALK058 

REAl*8  L,LDC,LGS\C(  2,  2),Z(  2),Y(  2),CI(  2,  2),V3(  2),HK(  12),  XTALK059 
1HU02PI , BU04PI,HU08PI,KUH  XTALK060 

COMPLEX*  16  X J,SU >.Q,S UHL, SO, SL,  VO, VL,  ZO,EPP,BNN,GAH,  JOBEGA  XTALK06 1 
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1,I0<  2), Il<  2)  ,T0(  2,  2),TL(  2,  2)  ,B(  2),A(  2,  2),NA<  2),G(  2).  XTALR062 
2P(  2,  2)  ,EP(  2)  * HR  ( 2),M1(  2,  2),M2<  2,  2),V1(  2),V2<  2),  WALK  063 

3T(  2,  2) ,TI ( 2,  2) ,ZEROC,ONEC  XTALK064 

DATA  PI/3. 141592653D0/, V/2.997925D8/  XTALKGS5 

DATA  CHTH/2.  54D-5/,HU02PI/2.  D-7/,TBO/2.D0/,P5/.5D0/,0NX/1.i>0/.  XTALK066 
1 FOOR/4.  D0/,ONE80/180.DO/,ZXRO/0.  DO/,  M008PI/.51H7/,HU04PI/1.I>-7/,  XTALK067 

2THRBE/3.DO/,P25/.25DO/,ONEP15/1.  15D0/,P15/. 15D0/,P4/.4D0/  XTALR068 

VV=V*V  XTALK069 

ZBBOC*DCHPLI(0.D0,0.  DO)  STALK070 

ONEC*DCHPLX(1-DO,O.DO)  XTALK071 

XJ*DCMPLX(0. D0,1.D0)  XTALK072 

C ITALR073 

FREQUENCY  INDEPENDENT  CALCULATIOHS********»*******V***************XTALR074 
C XTALK075 

C BEAD  AMD  PHINT  INPUT  DATA  XTA1K076 

C XTALK077 

BEAD (5,1)  TYPE, OPTION, N, ER,MDR,L  XTALK078 

1 FOBS AT (91,11 ,2 (8X,I2) , 3(5X,E10.3) ) XTALK079 

IF (TTPE.GE.1.AID.TIPE.LE.3)  GO  TO  3 XTALK080 

BRITE (6,2)  XTALK081 

2 FORMAT  ('  STRUCTURE  TIPS  ERROR1//'  TIPE  MOST  EQUAL  1,2, OR  3*///)  XTALK082 

GO  TO  121  XTALK083 

3 IF  (OPTIOR.BQ. 1 1. OR.OPTIOR. EQ. 12)  GO  TO  S XTALK084 

IF  (OPTIOH. XQ. 21. OB. OPTION. EQ. 22)  GO  TO  S XTALK085 

VRITE (6,4)  XTALK086 


BEAD  AMD  PRINT  INPUT  DATA  XTALK076 

XTALK077 

BEAD (8,1)  TIPE, OPTIOH, N.ER, MUR, L XTALK078 

1 FORMAT (9X, II ,2 (8X,I2) , 3(5X,E10.3) ) XTALK079 

IF  (TTPE.GE.1.AND.TIPE.LE.3)  GO  TO  3 XTALK080 

NRITE (6,2)  XTALK081 

2 FORMAT  (•  STRUCTURE  TIPE  ERROR'//'  TIPE  HOST  EQUAL  1,2,OR  3'///)  XTALK082 

GO  TO  121  XTALK083 

3 IF  (OPTIOR.BQ. 11. OR.OPTIOR. EQ. 12)  GO  TO  S XTA1R084 

IF  (OPTIOH. XQ. 21. OR.OPTIOR. EQ.22)  GO  TO  S XTALK085 

BRITE (6,4)  XTALK086 

4 FORMAT  ('  LOAD  STRUCTURE  OPTION  ERROR'//'  OPTION  ROST  EQUAL  11, 12,2XTALK087 

11, OB  22'///)  XTALK088 

GO  TO  121  XTALR089 

5 WRITE (6 , 6)  N, TYPE, OPTION, L,EB, HUB  XTALK090 

6 FORMAT  (1H1,50X,'XTALK2»///  XTA1K091 

1451,12,'  PARALLEL  BIBBS'///  XTALK092 

2431,'  TIPE  OF  STRUCTURE*  ',11///  XTALK093 

341X, • LOAD  STRUCTURE  OPTION*  '.12///  X1ALK094 

4391,'  LINE  LENGTH*  *,1PE13.6,'  METERS'///  XTALK095 

S32X, • DIELECTRIC  CONSTANT  OF  TBB  MEDIUM*  ',1PE10.3///  XTALK096 

631 X, ' RELATIVE  PERMS ABILITI  OF  THE  MEDIUM*  • , 1PE10. 3///)  XTALX097 

GOTO  (7,15,11) , TIPE  XTALK098 

7 RE  AD (5 , 8)  BBO  XTALK099 

8 FORMAT  (5X, BIO. 3)  XTALK100 

BRITE(6, 9)  BBC  XTALR101 


9  FORMAT (•  REFERENCE  CONDUCTOR  FOR  LIRE  VOLTAGES  IS  A LIRE  BITH  BADIXTALX 102 
1 US*  ',  1PE10. 3, • MILS'////)  XTA1K103 

BB0*RB0*CHTM  XTALK1Q4 

BRITE (6, 10)  XTALN105 

10  FvjRHAT  ('  BIRE  NUMBER ', 4X ,»  BIRE  RADIOS  (RILS)«,18X,  XTALK106 

1'Z  COORDINATE  (METERS)  • ,24X, • I COORDINATE  (METERS)',//)  STALK 107 

GO  TO  18  XT2LK108 

11  READ (5, 12)  RS  XTALK109 

12  FORMAT (5 X, El 0. 3)  XTALK110 

BR ITE(6,  13)  BS  XTALR1 11 

13  FORMAT  ('  REFERENCE  CONDUCTOR  FOR  LIRE  VOLTAGES  IS  A CILIXDRICAL  OYXTAItKIU 

1 BR ALL  SHIELD  BITH  INTERIOR  RADIUS*  *,1PB10.3,'  METERS'////)  XTALK1  13 

RS2*RS*RS  XTALK1 14 

vIRITfi  (6,  14)  XTALK115 

14  FORHATC  HIRE  NUMBER ', 2X,< HI  RE  RADIUS  (MILS)',  2X, 'SEPARATION  BETNXTALK1 16 

1 BEN  HIRE  AMD  CENTER  OF  SHIELD  (METERS)  ', 61, • ANGULAR  COORDINATE  (DEXTALK1 17 
2GREES)  »//)  XTALK1 18 

GO  TO  18  XTALK1 19 

15  BRITE (6 , 16)  XTALK120 

16  FORHATC  REFERENCE  CONDUCTOR  FOB  LIRE  VOLTAGES  IS  AN  INFINITE  GROUXTALK121 

1MD  PLANE'////)  XTALK122 
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WR1TB(6, 17) 

,7  FOBS  AT ('  HIRE  BOBBER*. 4X, 'WIRE  RADIOS  (BUS) ',181, 

1 'HORIZOBTAI  COOBDIBATE  (HETEBS) * ,16X,'HIRB  HEIGHT  (BITEaS) *,//) 

BEAD  AID  PRIET  LIRE  OIHBRSIOIS  AID  COHPOTE  THE  IITERSB  OF  THE 
PEB-OHIT-l EIGTH  CAPACITARCE  HATR2Z,CIWV 
(STORE  CIBT  IE  ABRAT  Cl) 

18  D*H0O2PI*T?/ER 
DO  2*  1*1, R 

READ(5, 19)  BB, Z(I) ,T (I) 

19  FOBEAT  (3  (5X,  BIO.  9* ) 

WRITE (6, 20)-  I,  RW,Z(I)  ,T(I) 

20  FOBEAT  (21,12, 131, 1 PE  10. 3,2 7X, 1PE 10.3,35X, 1PE10.3/) 

BH»ia*CHlH 

GO  TO  (21,22,23) ,TIPS 

21  DI2*Z  (I)  *Z  (I)  ♦!  (I)  *T  (I) 

Cl  (1,1) *D*DL0G  (DI2/(RW*RB0) ) 

GO  TO  24 

22  CI(I,I)*D»DIOG(TWO*T(I)/aR) 

GO  TO  2* 

23  Cl  (I, I) *D*DLOG {(BS 2-1(1) *Z (I)  )/(BS*BB) ) 

24  COETIBOE 
IF(».EQ. 1)  GO  TO  29 
K1-I-1 

DO  28  I*  1,E1 
K2*I*1 

DO  28  J*K2,H 
GO  TO  (25,26,27) ,TTPB 

25  DI2*Z (I) *Z  (I) ♦! (I) *1 (I) 

dj2*x(J)  n (j)  ♦r(j)  *i(j) 

ZD*Z  (I)  -T  (4) 

TD*T(I)-1(J) 

DI42»ZD*ZD*TD*TD 

Cl  (I, J) *P5*D*DLOG(DI2*DJ2/(H>04RR0*DIJ2)  ) 

CI(J,I)-CI  (1,4) 

GO  TO  28 

26  ZD*Z(I)-Z(4) 

TD*T  (I) -1(4) 

DI42*ZD*ZD»ID*TD 

Cl  (1,4)  *P5*D*DLOG(OHE«’FO0H*I  (I)  *T  (J)  /DI42) 

CI(4,I)*CI(I,4) 

GO  TO  28 

27  THETA*  (T  (I)-t  (J)  ) *PI/OBE80 
BI2*Z  (I)  ♦Z  (I) 

R42*Z(4)  *Z(J) 

Cl (I, J) *P5*D*DLOG( (BJ2/BS2) * (BI2*SJ2*BS2*BS2-THO*Z(I) **(4) ♦BSZ* 
1 DCOS  (THETA) ) / (RI 2*R4 2*RJ2*BJ2-TWO*Z  (I)  *Z  (J)  *R42*DC0S  (THETA))) 
CI(4.I)*CI<I,J) 

28  COITIHOB 
C 

C COHPOTE  THE  PBR-OBIT-LBKGTH  CAPACITABCI  HATHIX.C 
C (STORE  C in  ARBAT  C) 

C 

29  DO  31  1*1, B 
DO  30  4*1, H 

A (I, J) *CX(I,4) »OIEC 

30  P(I,J)*Z!ROC 

31  P (1,1) *OHEC 

cm  iBQTiC(A,a,H,p,a,a,o,BA,KEa) 

KBB*KBR-128 


IT All 123 

ITA1K124 

XTA1K125 

ZTAIK126 

XT AIR 127 

XT AIC1 28 

XT AIK 129 

XT AIK 130 

XTAIK131 

XTA1K132 

XTUK133 

XTALK134 

ZTAIK135 

XT AIK 136 

XTALK137 

XTA1K138 

XTA1K139 

XT AIK 140 

XTAIK141 

XTALK142 

XTA1S143 

XT  AIK  1 4 ► 

IT AIK 145 

XTAIK146 

XTA1K147 

XTALK148 

XTALK149 

XT AIK 150 

XTAIK151 

XTA1K152 

XTA1K153 

XTALK154 

XT AIK  155 

XV AIK 156 

XT AIK  157 

XTA1K158 

XTA1K159 

XTA1K160 

XTAIK161 

XTALK162 

XTALK163 

XTALK164 

XTA1K165 

XTALK166 

XTAIK167 

XTALK168 

XTA1K169 

XT AIK 170 

XTALK171 

XT AIK 172 

XTAJ.K173 

XTAIK17C 

XTA1K175 

XTA1K176 

XT All 177 

XTA1K178 

XTA1K179 

XTAIK180 

XTALK181 

XTA1K182 

XT AIK 183 
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IF  (KER.BE.  1)  KBB=0  XTALE184 

BRITE(6, 32)  RBB  XTALK185 

32  FORBAT (//,*  PER-OBIT-LEBGTH  CAPACXTARCE  BATRIX  IRVERSIOB  EHBOB*  *,XTALK186 


112//) 

00  33  1=1, a 
DO  33  J=1,« 

33  C (I, J) =DREAL (P  (I,  J) ) 

BEAD  ABO  PBIBT  CBABACT ERISTICS  OF  THE  BIBBS  ABO  THE  BBFBIBBCB 
COBDOCTOB  TO  BE  USED  IB  THE  SEIF  IBFBDABCB  CALCUIATIOBS 


XTALK187 
XT ALK1 88 
XT AIK 187 
XTAIK190 
XTALK191 
XT AIK 192 
XTAIK193 
XTALK194 
XTAIK195 
XT AIK 19ft 
XT AIK 197 
XTAIK198 


C 

c 

c 

c 

c 

c 

c 

c 

c 


GO  TO  (34,40,37), TYPE 

34  BEAD(5, 35)  BBSO,SIQO,BSO 

35  F0B8AT(2  (5X,E10.3) ,8X,I2) 

BRITE (6, 36)  RBSO ,SIGO, BSO 

36  FOBS AT (////*  REFER EBCE  BIBB  IS  STBABOBO  8ITH  EACH  STRABO  OF  BADI0SXTAIK199 

1=  • , 1PE1 0. 3, ' 8I1S*//*  COBDOCTIVITI  OF  BEFBREBCE  BIBB  STRABOS*  ',  XTAIR200 
21PE10. 3, ' SIEHEBS  PBH  BETER'//*  BOBBER  OF  STBABDS*  • ,12////)  XTAIR201 

BBSO=RBSO*CBTB  XTAIK202 

GO  TO  43  XTA1K203 

37  READ (5,38)  TB,SIGO  XTAIK204 

38  FORflAT (2  (5X, E10. 3) ) ITAIR205 

BRITE(6,39)  TH,SIGO  XTAIR206 

39  FORBAT (////'  SHIELD  THICKBBSS*  *,1PE10.3,*  H BIBBS*//*  SHIELD  COBD3XTALR207 

1CTIVITY*  *,1PB10.3,'  SIEBEBS  PEB  BETEB •////)  ITALK208 

GO  TO  43  XTAIX209 

40  READ (5, 41)  BGP.LGP  ITALR210 

41  FORBAT (2 (5X,E10. 3) ) XTAIR211 

HRITE (6, 42)  BGP.LGP  XTALK212 

42  FORBAT(////'  GROOHD  PLABE  BESISTABC3«  *,1PB10.3,*  OHBS  PEB  BETEB*  XTALK2 13 
1//*  GROOBD  PLABE  XHDOCTARCE*  *,1PB10.3,'  BBHBTS  PER  BETEB*////) 

43  BBITE(6,44) 

44  FORBAT (////•  B’.RE  BOBBER *, 4X ,' BIBE  STBABD  RADIOS  (HILS)*,18X, 

1 'COBDOCTIVITY  (SIEBEBS  PER  BETEB) *, 1 0X, • BOBBER  OF  STBABDS*//) 

DO  47  1*1, B 

READ(5,45)  Z (1)  «Y(I)  , XS(I) 

«5  FORBAT (2 (51, E10. 3) ,81,12) 

BRITE (6, 46)  1,2 (I) ,Y (I) , BS (I) 

*6  FORBAT (21, 12 , 16X, 1PE10.3.35X, I PE  10. 3, 3 2X, 12/) 

47  S(I)=Z(2)*CBTB 


BEAD  ABD  PBIBT  EBTBISS  IB  LOAD  ADHITTABCE (IBPEDABCE)  BATRICBS 
ABD  SHORT  CIRCOIT  C0BREB1  SOORCE(OPEN  CtBCOIT  VOLTAGE  SOORCE) 

VECTORS. 

(STORE  A DBITTA BCE (IBPEDABCE)  BATRICBS  AT  X-0  IB  ARRAY  YO  ABD 
THOSE  AT  X*L  IB  ARRAY  YL.  STORE  SHORT  CIRCOIT  COBREBT  SOORCE 
(OPEH  CIRCOIT  VOLTAGE  SO'JRCE)  VECTORS  AT  X*0  IB  ARRAY  10  ABD 
THOSE  AT  X=L  IB  ARRAY  IL.) 

IF (OPTIOH. EQ. ) 1.  OR. OPT 10 B. EQ.  12)  GO  TO  50 
BRITE(6, 48) 

48  FORBAT  (//, 18 X, ' ADBITTABCE  AT  X=0* , 10X, 'COBREBT  SOORCE  AT  X*0», 

1 12X, ' ADBITTABCE  AT  X=L* , 10X, ’CORBEBT  SOOHCE  AT  X*L»/) 

BRITE (6,49) 

49  FORBAT (21X,*  (SIEBEBS) ' ,23X, • (ABPS) ', 22X, * (SIEBEBS) • ,23X, • (ABPS) •/) XTALK238 

GO  TO  53  XTALB239 

50  BRITE(6,51)  XTALK240 

51  FORBAT  (//,18X, 'IBPEDABCE  AT  X=0* ,1 IX,' VOLTAGE  SOORCE  AT  X*0',  XTALK241 

112X,'IHPEDAHCB  AT  X=L* ,1 IX, • VOITAGE  SOORCE  AT  X=L*/)  XTALK242 

BRITE(6,52)  XTALK243 

52  FORBAT  (23X,' (OHBS) »,23T, * (VOLTS)  * ,24X, ' (OHBS) ' ,23X, ' (VOLTS)*/)  XT ALK244 


XTALK214 
XTALK2 15 
XTALR2 16 
XTALK2 17 
XTALK218 
XTALK2 19 
XTALK220 
XTALR231 
XTALK2^2 
XTALK223 
XTALK224 
XTALK225 
XTALK226 
XTALK227 
XTALK228 
XTALK229 
XTALX230 
XT ALK231 
XTALK232 
ITALK233 
XTALK234 
XTALK235 
XTALK236 
XTALK237 
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53  NBITE(6,54) 

XTALK24S 

54  FORBAT  (•  MTHr'flOX.'mL'.llX.’IMG'.m.'MU-’.mf’IlUG’rm,  XTALK246 

XTALK247 

DO  57  1-1,1 

XTAXK248 

READ (5,55)  TOR, TOI, 10(1)  , TLB, TLX, IX (I) 

XTALR249 

55  F08BAT (8 (Z10. 3) ) 

XTALK250 

TO(I,I)*IOB*XJ*TOI 

XTALK251 

TL (1,1) *TLR*I3*TLI 

XTALB252 

88 ITE(G,56)  I, I, TO (1,1) ,10(1) ,XL (1,1) ,11  (X) 

XTALK253 

56  FOBS  AT  ( IX,  12, 2 1, 12, 6 (5X,  1PE10.3)/) 

XTALK254 

57  COBTIBOE 

XTALK255 

IP  (OPTIOH.  BQ.  1 (•OR.OPTXOH.  BQ.2 1)  GO  TO  61 

XTALK256 

IF  (B.EQ. 1)  GO  TO  61 

IT ALB 2 57 

DO  60  1*1, K1 

XTALB258 

K2*I*1 

XTALK259 

DO  60  J*K2,B 

XT A LB 260 

READ  (5,58)  TCS,TOI,UB,TLI 

XT ALB 261 

58  FOBS  AT  (2  (E10.  3)  ,20X,2(E1 0.3) ) 

XTUK262 

TO(I,J)-TOB*XJ*TOI 

XTALK263 

TL(X,J)*UI»XJ*T1X 

XTALB264 

TO(.1,I)*T0(I,J) 

XTALB265 

TL(J,I)*TL(I,3) 

XTALK266 

WHITE (6, 59)  I, J, TO (I , J) , TL (I ,0) 

XTALK267 

59  FO SBAT(1 X,I2,2X,I2,2 (5X, 1PB10. 3)  ,30X,2  (5X, 1PE10. 7) ) ITALK268 

60  COKTI83E 

XTALK269 

XTALX270 

COHPOTB  THE  BATRICBS  C*X0, C*ZI,C*?0,C*?l  FOB 

THE  THBTZ1X1  XTALR271 

EQOITALZBT  OR  T0*CIIT, TL*CIBT,IO,IL,  FOB  TBB 

NOBTOS  BQOIVALBBT  ABDXTALK272 

STORE  IN  ARBATS  B1,H2,T1,V2,  RBSPECTIVELT. 

XT ALK273 

XTALK274 

61  IF  (OPTIOB.BQ.il)  GO  TO  62 

XTALK275 

IF  (OPTIOB.BQ.  12)  GO  TO  65 

XT AX B 276 

IF  (OPTIOB. BQ. 21)  GO  TO  69 

XTALK277 

IF (OPTIOB.BQ. 22)  GO  TO  72 

XTAXK278 

62  DO  64  1*1, B 

XTALB279 

SO-ZEROC 

XTALK280 

SL*ZBBOC 

XTAXK28  1 

DO  63  J*1,N 

XTAXB282 

B1(I.J)*C(I,J)*T0(J,J) 

XTALK283 

B2<I,J)*C(X,J)*TI,M,J) 

XTALK284 

S0*S0*C(I,J) *10 (J) 

XT  ALB 2 85 

63  SL*SL*C(I,J) *IL(J) 

XIALK286 

»1  (I)*SO 

XTALK287 

64  V2  (I) *SL 

XTALB288 

GO  TO  76 

XTALK289 

65  DO  68  1*1, N 

XTALB290 

SO*ZEBOC 

XT  ALB 291 

SL*ZBBOC 

XTALK292 

DO  67  3*1,1 

XTALK293 

SOBO*ZBHOC 

XTALB294 

SOPl*ZBBOC 

XTALK295 

DO  66  K*  1,  N 

XTALK296 

SOBO-SOBO  C(I,K)  *I0{  B,  J) 

XTALK297 

66  SORL*SUfll*C<I,R) *TL(X, J) 

XTALB298 

S0*S0*C(I,J) *10 (J) 

XTALK299 

SL=SL+C (I, J) *11(0) 

XTALK300 

B 1 (I , J) =S080 

XTALR301 

67  82  (I, J) =SOBL 

XTALB302 

?1  (I)=SO 

XTALK303 

68  V2 (I) =SL 

XT ALR304 

GO  TO  76 

XTALR305 
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nnnno  non  non 


69  BO  71  1*1, * 

DO  70  J=1,l 

HI  (I,J)*Y0(I,I)*CI(I,J) 

70  H2  (I,J) *11  {I, I) *CI (I,J) 

11  (I)  *10  (I) 

71  12(X)*XL(X) 

GO  TO  76 

72  DO  75  1*1,* 

DO  79  J*1,H 
S0H0*ZBBCC 
S0M*ZBBGC 
DO  73 

SOHG*SOHO*YO (X,K) *CI (X,J) 

73  S0HL*S0HL*YL(I,K)*CI(K,3) 

H1(I,J)=S0H0 

74  12  (I,  J)  =S0H1 
11  (X)*J0(I) 

75  V2  (I) *Ii (I) 

76  COITIHOE 

S.?E  THE  ENTRIES  II  EACH  BOB  OF  C AID  STOBE  X*  AKBAt  13 

DO  78  1*1,1 
S=ZEBO 
DO  77  J*1,l 

77  S*S*C(I,J) 

78  13  (I)  *S 


»****tbeqdbict  DEPBIDEIT  CALCULATIONS ****••*•**•**♦ »»*******1***C**i 

79  COITIHOE 

BE AD (5, 80, BHD* 121)  F 

80  FOBHAT(E10.3) 

OHBGA*TBO*PX*F 

JOHBGA*XJ«OHEGA 

COHPOTB  THE  BIBB  BED  REFERENCE  COIDDCTOB  SELF  X8PBDABCES 
(STOBE  SELF  XHPBDAICBS  OF  EACH  BIBB  XU  ABBAT  3 AID  TIB  SELF 
IHPEDAICE  OF  THE  BBFEBEBCE  COIDDCTOB  IS  STOBED  XI  VABXABXK  EO) 


LDC*H008PI 
DO  83  X*1,l 

DELTA* 01 B/ (TBO*PI*DSQBT (I ( *)  *F*HD04PI)  ) 

RDC*OHE/ (PI*Y (I) * (Z  ( I) »Z (I))} 

IF  (Z (X) .LE. DELTA)  GO  TC  81 
IF  (X  (I) • GE.THR  EE*DBLTA)  GO  TO  82 

B{I)  = (P25*(Z{t)/DELTft*Tl.BEE)  »BDC*JOBEGA*  (0B2P15-P15*Z  (X) /DELTA) 

1*L DC) /IS (I) 

GO  TO  83 

81  B (I)  * (BDC*  JOHilG A*LDC)  /IS  (X) 

GO  TO  83 

82  B (I) * (P5*Z (I) *RDC/DELTA*JO HIG1*TB0*DELTA*LDC/Z (X) ) /IS (X) 

83  COITIHOE 
GO  TO  (84,87,88) , TYPE 

84  DELTA=0*B/(TBO*PI1DSQRT(SIGO*F»H004PX)) 

BDC*0IE/  (PX*SIG' ♦(HBS0*BBS0) ) 

IF(BBSO.LE.DELTA)  GO  TO  85 
IF(BBSO.GE.THREB*DELTA)  GO  TO  86 
20-  (P25*  (BHSO/DELTA+THBEE)  *BDCtJOBEGA*  (OIEP15-P15*BBSO/DEL'!rA)*lDC)XTALK364 

1/HS0  STALK 3 55 

GO  TO  91  XTALU66 


XTALK306 
XTALK307 
XTALK308 
XTALK309 
XT ALKJ 10 
XT  ALU  11 
XTALX312 
XTALK313 
XTALK314 
XTALK3 15 
IT  ALU  16 
XT  ALU  17 
XTALK318 
XTALK319 
XT  ALU  20 
XTUX321 
ITXLK322 
XTALK323 
XT  ALU  24 
XT  ALU  2 5 
XT  ALU  26 
XTALK327 
XTALK328 
XTALK329 
XT  AL  A3  30 
XTAIK331 
XTALX332 
XTALK333 
•XT  ALU  34 
XT ALK335 
XTALK336 
XTALK337 
XT  ALU  38 
XTALK339 
XTA7JC340 
XTALK341 
XTALU42 
XTALK343 
XTALR344 
XTALK345 
XTALK346 
XTALK347 
XTALK348 
XT  ALU  99 
XTALK350 
XTALU51 
XTALK352 
XTALK353 
XT&LK35I 
XTALR355 
XTALK3S6 
XTALK357 
XTM.K358 
XTALK359 
XT ALK36G 
XTALK361 
XTALK362 
XTALK363 
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85  Z0= (RDC+OOBEGA*LDC) /HSO 
GO  TO  91 

86  ZO=(P5*EBSO*RDC/DBLTA*JOHBGA*TBO*DBLTA*LDC/BBSO)/BSO 
GO  TO  91 

87  ZO=(BGP*JOBEGAM.Gi’) 

GO  TO  91 

88  BDC=ORB/ (PI*SIG0*TH* (THO*RS*TH)) 

DELTA* ORE/  (THO*PI*DSQRT ( SIGO*P*HOO*PI)  ) 

IP(TH.LE.DBLT»*P5)  GO  TO  89 

IF  (TB.GE.THRZE*DELTA)  GO  TO  90 

X=TRO*TH/DBLTA 

SIRS*  (DEEP  {XI— DEXP  (-1)  ) *P5 

COSH*  (DEEP  {X)  ♦DEXP(-X)  ) *F5 

Z0= ((SIHH*DSIR  (X)  ) *IJ*  (SIHH-DSIH  (X)  ) )/  <THO*PI»BS*SIGO*DELTA* 

1 (COSH— DCCS  (X))) 

GO  TO  91 

89  ZO* (OHE*XO*P4*TH/DBLTA) *RDC 
GO  TO  91 

90  ZO*  (0HE*30)/  (T8O*PI*RS*SIG0*DELT A) 

C 

C COBPOTE  THB  EIGEIVALOES  AND  THB  EIGEIVECTORS  OP  THE  PFODOCT  TZ 
C (STORE  THE  EIGEMTECTORS  AS  COLOURS  OF  ABIAT  T.  STORE  THE 

C EIGEHt ALOES  IH  ARRAT  B.) 

C 

91  OH2*OBEGA*OHEGA 
DO  93  I*1,B 

DO  92  0*1, R 

92  A(I,J)*JOBBGA*(T3(I) *Z0+C(X, J) *B  (J) ) 

93  A (I, I) *A  (1,1) -OB2*HOR*EH/T1 
CALL  EIGCC  (A,H,H,2,B,T,N,8K,LER) 

LEB*IER-128 

IF  (LER.LT. 1)  LEB*0 
C 

C COBPOTE  THB  XHVEBSE  OF  THE  TRARSFORB ATIOR  RATRIX,  T 
C (STOR3  IH  ARRAT  TI) 

C 

LO  95  1*1, R 
DO  94  0*  1,  R 
AII,J) *T(I,J) 

94  TI (I ,0) *ZEROC 

95  TI (1,1) *ORBC 

CALL  LBQT1C  (A,N, H, TI , N, M , 0 , 8 A, HER) 

BER*BER- 128 
IF  (HER. HE. 1)  HER*0 

C 

C COBPOTE  THB  TBRHIRAL  TOLTAGES 

C 

C FORR  THE  EQOATIOHS 

C 

DO  98  I*  1,  H 

SO*ZEROC 

SL*ZEROC 

DO  97  0=1,  R 

SOBO*ZBBOC 

SOHL*ZEROC 

DO  96  K*  1,  H 

SOBO*SOBO*H1 (I,K) *T (K, J) 

96  S0BL=S0HLtB2 (I,K) *T(K,0) 

SO=SO*TI (I, J) *71 (0) 

SL=SL*TI (I,J) *72 (J) 

A (1,0) *SOBO 


IT AL 13 67 
XTALK368 
XTALK369 
XTALX370 
XTALK371 
XTALK372 
XTALK373 
XTALK374 
XTALK37S 
XTALK376 
XTALK377 
XTALK378 
ITALK379 
XTALK380 
XTALK381 
XTALX382 
XTALK383 
XTALK384 
XTALX38S 
XTALK386 
XTALK387 
XTALK388 
XTALK389 
XTALK390 
XTALK391 
XTALK392 
XTALK393 
XTALK394 
XTALR395 
XTALK396 
XTALK397 
XTALK398 
XTALK399 
XTALK400 
XTALK401 
XTALK402 
XTALK403 
XTALK404 
XTALX405 
XT  AIK*  06 
XTALK* 07 
XTALK408 
XTALK409 
XTALK* 1C 
XT AIK* 11 
XTALK* 12 
XTALK* 13 
ITALK4 1* 
XTALK* 15 
XTALK* 16 
XTALK* 17 
XTALK* 18 
XTALK* 19 
XTALK420 
XTALK* 21 
XTALM22 
XTALK423 
XTALK72* 
XTALK425 
XT  ALK«26 
XTALK* 27 
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it 

97 

P(I,J)-S0HL 

XTALK428 

1 

I0(I)*S0 

XTALK429 

& 

IL(I)-SL 

XTALK430 

I 

IP  (OPTIOI. BQ. 1 1. OB. OPTIOM. EQ. 12)  II (X) =-IL(I) 

XTALKI3 1 

| 

GAH-CDSQRT (B(I)) 

XTALK432 

EPP-CDEXP (GAH*L)  *P5 

XTALK433 

V 

EII*CDEIJ  >;-GAH*L)  *P5 

XTALK434 

% ' 

1 \ 

EP  (11 r BPP*BII 

XTALX435 

fc  X 

EB  (I)-SPP-BKN 

XT  AIM  36 

If. 

G (I) -GAH/JOHEGA 

XTALR437 

1 

IP (OPTIOI. EQ. 1 1. OH. OPTIOI. EQ. 12)  G (X)*GRBC/G (I) 

XTALK438 

3-  " 
a ’ 

98 

COITIHOB 

XTALK439 

| ’ 

DO  100  1-1,1 

XTALK440 

DO  100  J-1 ,1 

XTALK441 

1 

SOBO-ZEBOC 

XTALK442 

f 

SOBI-ZBIOC 

ITALK443 

&r 

DO  99  K*1,H 

XTALK444 

: 

SOHO-SOHO*?! (1,1) *A(R,  J) 

XTALKI45 

& 

99 

SOBL-SOHL+TI (I,X)  *P( I,  J) 

XT ALII 46 

l 

TO  (I,J)-SOBO 

XTALX447 

l 

100 

TL  (I , J)  -SOHL 

XTALR448 

l • 

DO  103  1*1,1 

XTALX449 

I 

SO-ZEIOC 

XTALR450 

1 

DO  102  J-1, I 

XTALK451 

F 

1 

SL-ZBROC 

XTALR452 

5 

DO  101  8*1, H 

XTALK453 

! ' 

101 

SL-SL+TL  (I  , K)  *G  (K)  *EI(K)  *T0(K,J) 

XTALX454 

i 

A (I, J) -Sl*IL (I ,J) *EP (J) ♦TO (I , J) * EP (I) 

XTALK455 

102 

SO-SO* XL  (I,J)*G(J)  *RI(J)  *I0(J) 

XTALR456 

A(I,I)-A(I,I)*EH(I)/G(I) 

ITALK457 

$11 

103 

B (I) -S0*EP (I) *10 (I) *11(1) 

XTALX458 

c 

XTALK4S9 

c 

SOtVB  THE  EQOATIGHS 

XTALK460 

J9  -' 

c 

XTALK461 

l 

CALL  LBQT1C (A, I, I, B, 1,1, 0,1 A, I BE) 

XTALK462 

P 

IER-IEH- 128 

XTALR463 

1 

IP  (IER.  HE.  1)  IBR-0 

XTALI464 

IHITB (6 , 104)  P, IBR 

XTALK465 

104 

POHBAT (1H1 ,'  PBEQOBHCT (HERTZ)-  • , 1PB 1 1. 4, 10X ,' SOLOTIOI  ERROR-  ', 

XTALI466 

12X.I2/) 

XT ALK467 

m 

PREC-BK  ( 1) 

XTALI468 

IRITS(6, 105)  LER.PHEC 

XTALK469 

105 

PORHAT (•  EIGER  SOLOTIOI  BIROR-  ',14/'  BIGEI  SOLOTIOI  PRECISIOI- 

*,XTALK470 

1 

11PE10.3/) 

XTALK471 

1 

4RITE(6, 106)  HER 

XTALK472 

106 

PORHAT (•  TRAHSPORHATIOI  BATRXX  XITERSIOI  BRROB-  «,I2//) 

XTALK473 

RRITE (6, 107) 

XTALK474 

107 

PORHAT  (16X,'RXRE',8X,<  TOH(TOLTS)  ' , 3X , ' TOA  (DEGREES) *,3X, 

XIALK475 

f 

1 • TLB (VOLTS) ' , 3X, ' TLA (DEGREES) •///) 

XTALK476 

i 

c 

XT ALK477 

1 

c 

COHPOTE  AID  PRUT  THE  TERHIIAL  TOLTAGES 

XTALK478 

c 

XT ALIA 79 

DO  109  1*1,1 

XTA1T4GO 

K 

S' 

SO-ZEROC 

ITALM81 

1 

DO  108  J-1, I 

XTALK482 

& 

& ' 

108 

S0*S0*T0 (X,J)  *B(  J) 

XTALK483 

l 

109 

G (I)  *-G  (I)  *EH  (I)  *10(1)  *EP(X)  *8  (I)  *G  (I)  *BI  (I)  *S0 

XTALR484 

I 

IP  (OPTXOI.EQ.21.OR.OPTXOI.BQ.22)  GO  TO  114 

XTALX485 

| 

DO  111  1-1,1 

XTALK486 

i 

SO-ZEBOC 

XTALR487 

t 

SL-ZEROC 

XTALK488 

DO  110  3=1,8 

XTALKA89 

S0*S0-I0  (I,3)*B(3) 

XTALK490 

110  SL=SL*XL(I,3)*G(3) 

ITALIC*  91 

TO (1,1) *10 (I) *S0 

XTALK492 

111  YL(I,I)*-IL(I)*SL 

XTA1K493 

DO  113  1*1,8 

1TALK49* 

SO=ZEROC 

XTALK995 

SL*ZEROC 

XT AL XI 96 

DO  112  3*1, H 

XTALK497 

SO*SO*T(I,3)  *T0(3,3) 

XTALK498 

112  SL*SL*T(I,3)  *tl(3,3) 

XTALKAf 3 

P(I,I)  *S0 

XTALK50C 

113  A(I,I) *S1 

XTALK501 

GO  TO  117 

XTALKS92 

11«  DO  116  1*1,8 

XTALK503 

SO*ZBBOC 

XTALKSO* 

SL*ZEROC 

XTALK505 

DO  115  J*1 ,8 

ITALICS  06 

S0*S0+T(I,3) *8(3) 

XTALK507 

115  SL*SL*T (1,3) *G (3) 

XTALK508 

P(I,I) *S0 

XTALK5Q9 

116  1(1,1)  *SI 

XTALK5 10 

117  DO  120  1*1,8 

XTALR511 

SO*XBROC 

XTALK5 12 

SL=ZER0C 

XT ALBS  13 

DO  118  3*1,8 

XTALKS 14 

SO*SO*CI (1,3)  *P (3,3) 

XTALKS 15 

118  SL*SL+CX (1,3) *1 (3,3) 

XTALK516 

TO-SO 

XTALKS 17 

TL-SL 

XTALK518 

T0B*CDABS (70) 

XTALKS 19 

7LH*CDABS(TL) 

XTALKS 20 

TOR=DRBA1(TO) 

XTALKS21 

TO I»DIHAG (TO) 

XTALKS22 

TLR*DREAl (VL) 

XTALK523 

TLI*DI HAG (TL) 

XTALK524 

IP  (TOR. BQ. ZERO. A HD. VOX. BO.  ZERO) 

T0R*0HE 

XTALKS 25 

IP  (TLR. BQ.ZERO.A8D.TLI.BQ. ZERO) 

TLR*08B 

XTALK526 

TO A=DATAB2 (TOI,TOR) *08B80/PI 

XTALKS 27 

TL A*DATAH2 (TLX, TLR) *O8B80/PI 

XTALK528 

HR ITE (6,119)  I, TOH, TO A, TLH, TLA 

XTALKS 29 

119  PORHAT (17X,I2,8X, 1PE10. 3,3X,iPB1Q. 3, 10X, 1PB10-3,3X, 1PB10.3/) 

XTALK5J0 

120  COMTIHOE 

XTALKS31 

GO  TO  79 

XTALKS32 

121  STOP 

XTALK533 

BHD 

XTALK534 
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TABLE  B-l 


Delete  Card  057 

Card  Number 

Changes  in  XTALK2  to  Convert 

to  Single  Precision  Arithmetic 

Double 

Single 

059 

REAL  *8 

REAL 

061 

COMPLEX  *16 

COMPLEX 

065 

3. 141592653DC 

3. 1415926E0 

065 

2. 997925D8 

2.997925E8 

066-068 

change  all  D's  to 

E’s 

070 

DCMPLX (0 . DO , 0 . DO ) 

CMPLX(0.E0,0 

071 

DCMPLX ( 1 . DO , 0 . DO ) 

CMPLX(1.E0,0 

072 

DCMPLX (0. DO, 1. DO) 

CMPLX (0.E0,1 

140 

DLOG 

ALOG 

14? 

DL0G 

ALOG 

144 

DLOG 

ALOG 

157 

DLOG 

ALOG 

163 

DLOG 

ALOG 

169 

DLOG 

ALOG 

170 

DCOS 

COS 

170 

DCOS 

COS 

190 

DREAL 

REAL 

348 

DSQRT 

SQRT 

360 

DSQRT 

SQRT 

374 

DSQRT 

SQRT 

378 

DEXP 

EXP 

378 

DEXP 

EXP 
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Card  Number 

Double 

Single 

379 

DEXP 

EXP 

379 

DEXP 

EXP 

380 

DSIN 

SIN 

380 

DSIN 

SIN 

381 

DCOS 

COS 

432 

CDSQRT 

CSQRT 

433 

CDEXP 

CEXP 

434 

CDEXP 

CEXP 

519 

CDABS 

CABS 

520 

CDABS 

CABS 

521 

DREAL 

REAL 

522 

DIMAG 

AIMAG 

523 

DREAL 

REAL 

524 

DIMAG 

AIMAG 

527 

DATAN2 

ATAN2 

528 

DATAN2 

ATAN2 
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APPENDIX  C 


FLATPAK 


Program  Listing 


HOG  Bin  PL  AT  PI  K 

(FORTRAN  IV,  DOUBLE  PRECISION) 

HRXTTEN  BT 

CLAPTON  R.  PAUL 

DEPARTS BUT  OF  ELECTRICAL  If GIBBERING 
ONIVERSITT  OF  KENTUCRT 
LEXINGTON,  KEHTUCKI  40506 

A DIGITAL  COHPUTER  PROGRAH  TO  COBPOTI  THE  TBRHINAl  VOLTAGES 
(HITB  RESPECT  TO  THE  REFERENCE  HIRE)  OF  AN  N*1  HIRE  FLATPACK  OR 
RIBBON  CABLE  FOR  THE  •QUASI-TEH*  BODE  OF  PROPAGATION. 

THE  DISTRIBUTED  PARANETER,  HOLTICORDOCTOR  TRARSHISSIOR  LINE 
EQUATIONS  ARB  SOLVED  FOR  STEADT  STATE,  SINUSOIDAL  EXCITATION 
OF  THE  LINE. 

THE  N*1  HIRES  ARE  ASSURED  TO  BE  PARALLEL  TO  BACH  OTHER. 

THE  N+1  HIRES  ARB  CONSIDERED  TO  BE  PERFECT  CONDUCTORS. 

THE  SURROUNDING  HEDIA  ARE  ASSURED  TO  BE  LOSSLESS. 

THE  PER-UNIT-LENGTH  CAPACITANCES  OF  THE  CABLE (IITH  AND  NITHOUT 
THE  DIELECTRIC  INSULATIONS  PRESENT)  ARB  INPUT  DATA  AND  HAT  BE 
CONFUTED  HITS  THE  PROGRAB  GBTCAP. 

LOAD  STRUCTURE  OPTION  DEFINITIONS: 

OPTION* 11, THEVENIN  EQUIVALENT  LOAD  STRUCTURES  HITH  DIAGONAL 
IHPEDANCE  HATRICES 

OPTION* 12, THEVEHIN  EQUIVALENT  LOAD  STRUCTURES  HITB  FULL 
IRPUDANCE  HATRICES 

OPTIOH*21, NORTON  EQUIVALENT  LOAD  STRUCTURES  HITB  DIAGONAL 
ADHITTANCE  RATRICES 

OPT IOH*22, NORTON  EQUIVALENT  LOAD  STRUCTURES  HITB  FULL 
ADHITTANCE  RATRICES 

SUBROUTINES  USED:  LEQT 1C, SHOOT, EIGEN 


ALL  VECTORS  AND  HATRICES  IN  THE  FOLLOHING  DIHEBSION  STATBHENTS 
SHOULD  BE  OF  SIZE  N HHEBE  N IS  TBE  NUHBEB  OF  NIR ES (EXCLUSIVE  OF 
THE  REFERBNCE  HIRE),  I.E..  C (N,N) ,C0 (N,N) ,TI (N, N) ,G (N) , HA (N) , 

10  (N)  ,IL  (N),TO(N,N),TL(H,N),B(H),A(N,N),P(N,N) 

I H FLIC IT  REAL*8  (A-H,0-Z) 

INTEGER  OPTION 

REAL'S  L,C<  2,  2),C0(  2,  2),TI(  2,  2),G{  2) 

COHPLEX* 16  XJ,SUSO,SUHL, SO ,SL, VO,VL,ZBBOC,ONBC,ZO(  2),IL(  2), 

1 TO  ( 2,  2),U(  2,  2) , B ( 2},A(  2,  2),HA(  2),P(  2,  2) 

DATA  PI/3. 141592653D0/, V/2.997925D8/ 

DATA  ONE/1.DO/,THO/2. D0/,ZBRO/0. DO/, ORES 0/1 80. DO/ 

ZEBOC=DCPPLX (0. D0,0. DO) 

ON EC*DCHFLX  (1.D0.0.D0) 

XJ*DCHPLX (0. DO, 1.D0) 


► ** PREQUENCT  INDEPENDENT  CALCULATIONS* 
READ  AND  PRINT  INPUT  DATA 


»FLATP001 
FLATP002 
FLATP003 
FLATP004 
FLATP005 
PLATP006 
FLATP007 
FLATP008 
FLATP009 
FLATP010 
FLATPO 1 1 
FLATP012 
FLATPO 13 
FLATPO 14 
FLATPO 15 
FLATPO 16 
FLATPO 17 
FLATPO 18 
FLATPO 19 
FLATP020 
FLATP021 
FLATPO 22 
FLATP023 
FLATP024 
FLATP025 
t LATP026 
FLATPO 27 
FLATPO 28 
FLATP029 
FLATP030 
FLAIP031 
FLATPO 32 
FLATP033 
FLATPO 34 
FLATP035 
FLATP036 
FLATPO 37 
FLATP038 
FLATP039 
FLATP040 
‘•FLATP041 
FLATP042 
FLATF043 
FLATP044 
FLATP065 
FLATP046 
FLATP047 
FLATP048 
FLATP049 
FLATP050 
FLATP051 
FLATP052 
FLATP053 
FLATP054 
FLATP055 
FLATP056 
FLATP057 
FLATP058 
►•FLATP059 
FLATP060 
FLATP061 


1 


HEAD  (5, 1 ) N, OPTION, L 
t FOR8AT(8X, 12,81, 12,210.3) 

IP  (OPTION. EQ.  1 1. OB. OPTION.  EQ.  12)  GO  TO  3 
IP  (OPTION.  2Q.  21.  OR. OPTION.  BQ.  22)  GO  TO  3 
SHITE (6, 2) 


PIATP062 

PLATP063 

FLATP064 

PIATP065 

FLATP066 

FLATP067 


2 POBBAT { ' LOAD  STBOCTOBE  OPTION  EBBOB •//*  OPTION  HOST  EQUAL  1 1, 12,2f LATP068 


11, OB  22'///)  FLATP069 

GO  TO  60  PIATP070 

3 NP*N+1  PIATP071 

SHITE (6,  4)  HP, L, OPTION  PLATP072 

4 FOBHAT(1H1,49l,*FLATPAKV//  P1ATP073 

1 451,12, ' PABALLE1  VIBES'///  PLATP074 

239X,  'LINE  LENGTH-  »,1PE13.6,  • BBTBBS'///  FLATP075 

3421, ‘LOAD  STBOCTOBE  OPTION*  *,I2///)  PLATP076 

PLATP077 

BEAD  ENTBIES  IN  THE  PE8-0NIT-LEHGTH  TBARSBISSZON  LINE  FLATP078 

CAPACITANCE  HATRIX,C (COHPOTED  NITH  GETCAP)  PLATP079 

(STORE  C IN  ABBAT  C)  FLATP080 

FLATP081 

DO  6 I* 1 ,N  FLATF082 

DO  6 0=1, N FLATP083 

BEAD(5,5)  K, B,C (K, 8)  FLATP084 

5 FOBS AT  (4 X, 12 ,3X, I2,2X, E 1 3. 6)  FLATP085 

6 C(H,K)*C(K,H)  FLATP086 

FLATP087 

READ  ENTBIES  IN  THB  PER-ONIT-LENGTH  TBANSBXSSION  LINE  FLATP088 

CAPACITANCE  HATRIX  HITS  THE  BIBE  INSOLATIONS  BEHOVED,  CO, (COBP0TEDFLATP089 
HITH  GETCAP)  PLATP090 

(STORE  CO  IN  ARRAY  CO)  FLATP09I 

FLATP092 

DO  8 I*  1 ,N  FLATP093 

DO  3 0=1, N FLATP094 

READ (5,7)  K, H,C0  (K , H)  FLATP095 

7 POBNAT  (41, 12,31,12, 2X,B13.  6)  FLATP096 

8 CO  (B,K) *C0  (K,fl)  PLATP097 

FLATP098 

COB POT E THE  EIGENVECTORS  (COLOHNS  OF  THE  BATRIX  T)  AND  EIGEN VALUESFLATP099 
OP  THE  BATRIX  PRODUCT  CL  F1ATP100 

(THE  ARRAYS  TI  AND  G CONTAIN  T AND  THE  INVERSE  OF  THE  EIGENVALOES  FLATP101 
FOR  THB  THEVEBIN  EQUIVALENT  OB  THB  INVERSE  OF  THB  TRANSPOSE  OF  T FLATP»02 
AND  THB  EIGENVALOES  FOR  THE  NORTON  EQUIVALENT,  RESPECTIVELY)  FLATP  .03 

FLATP104 

IF  (N. EQ. 1)  GO  TO  9 FLATP105 

CALL  NROOT (N,C0,C, G,TI,N*K)  FLATP106 

GO  TO  10  FLATP107 

9 G (1)  *C0  ( 1,  1)/C  (1,  1)  FLATP108 

TI  (1,1) =ONE/DSQRT (C(  1,1)  ) FLATP109 

10  DO  12  1=1, N FLATP1 10 

DO  11  0=  1,  N FLATP111 

11  C(I,J) =TI(I,0)  FLATP112 

12  G(I)=ONE/(V*DSQBT(G(I)))  FLATP1 13 

IF (OPTION. EQ. 21. OR. OPTION- EQ. 22)  GO  TO  18  FLATP1 14 

DO  14  1=1, N FLATP1 15 

DO  13  0=1, N FLATP  1 16 

A (I,J)=TI  (1,0) ^ONEC  FLATP  1 17 

13  P (1,0) =ZIROC  FLATP1 18 

14  P ( I ,1) =OBEC  FLATP 1 19 

CALL  LEQT1C(A,N,N,P, N,N,0,HA,KER)  FLATP120 

KER=KER- 128  FLATP121 

IP  (KER.NE. 1)  KER=0  FLATP122 
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n n n n n n 


c 

c 

c 

c 

c 

c 

c 

c 

c 


NRITE(6,15)  KEB 

15  FORMAT (//,'  TRANSFORMATION  MATRIX  INVERSION  ERROR3 
DO  17  1*1, S 

DO  16  J=1,N 

16  TI  (I , J)  = DREAL  (P  ( J , I) ) 

17  G (I) =ONE/G (I) 

READ  ARD  PRINT  EITRIES  IB  LOAD  ADMITTANCE (IMPEDANCE)  MATRICES 
AMD  SHORT  CIRCUIT  CURRENT  SOURCE (ODER  CIRCUIT  VOLTAGE  SOURCE) 
VECTORS 


FLAT? 123 
PL ATP 124 
PLATP125 
PLATE 126 
PLATP127 
PLATE 128 
FLATE129 
PLATE130 
PLATP131 
PLATE132 

(STORE  ADMITTANCE (IMPEDANCE)  MATRICES  AT  X*0  IN  ANRAI  TO  AID  T80SEPLATP133 
AT  X=L  IN  ARRAY  TL.  STORE  SHORT  CIRCUIT  CURRENT  SOURCE  (OPEN  PLATP134 

CIRCUIT  VOLTAGE  SOURCE)  VECTORS  AT  X*0  IN  ARRAY  10  AND  (BOSE  PLATP135 

AT  X=L  IN  ARRAY  IL.)  PLATP136 

PLATE 137 

18  IP  (OPTION. EQ.11.OR.OPTIOB.EQ. 12)  GO  TO  21  PLATP138 

RRITE(6, 19)  PLATP139 

19  FORMAT  (//,18X, 'ADMITTANCE  AT  X=0* , 10X, 'CURRENT  SOURCE  AT  X*0»,  PLATP140 

112X,'  ADMITTANCE  AT  X=L*  , 10X,  'CURRENT  SOORCB  AT  M5/)  PLATP141 

WRITE (6,20)  PLATP142 

20  FORMAT  (2 IX,' (SIEMENS) »,23X,* (AMPS) 22X, • (SIEMENS) * ,23X. • (AMPS) •/) PLATP143 


PLATE 144 
PLATP1 45 
PLATP146 
PLATP147 
PLATE 148 
PLATE149 
PLATE 150 
PLATP151 
PLATP1S2 
PLATE 153 
PLATE 154 
PLATE 155 
PLATE156 
PLATE 157 
PLATE1S8 
PLATP159 
PLETP160 
PLATE161 
PLATE 162 
PLATE163 
PLATP164 
PLATP165 
PLATE166 
PLATP167 
PLATE168 
PLATP169 
PLATE170 
PLATE 171 
PLATP172 
PLATE 173 
FLATP174 
PLATP175 
PLATP176 

COMPUTE  THE  MATRICES  TTRAN*Z0*T,  TIN AN*ZL*T,  TTBAN*V0,  -TTBAR*VL  PLATE177 
FOR  THE  THEVENIN  EQUIVALENT  OR  TINV*YO*TINVTRAN,  TINV*YL*TINVTRAN,FLATP178 
TINV*I0,  TINV*Il  FOB  TBE  NORTON  EQUIVALENT  AND  STORE  IN  ARRAYS  PLATP179 
Y0,YL,I0,IL,  RESPECTIVELY.  PLATP1S0 

PLATP181 

32  IF  (OPTION. EQ. 12. OH. OPTION. EQ. 22)  GO  TO  35  PLATP182 
DO  34  1=1, N FLATP183 


GO  TO  24 

21  >RITE(6,22) 

22  FORMAT  (//,18X, 'IMPEDANCE  AT  X*0' . 1 IX ,' VOLTAGE  SOURCE  AT  2*0', 
112X, 'IMPEDANCE  AT  X=L' ,1 IX,' VOLTAGE  SOURCE  AT  X*l'/) 

«RITB(6,23) 

23  FORMAT  (23X,'  (OHMS) « , 23X, • (VOLTS)  • , 24X, ' (OHMS) • ,23X,' (VOLTS) •/) 

24  BRITE(6,25) 

25  FORMAT (•  ENTRY', 10 X, 'BBA1',11X,'IHAG', 11X,'REAL',11X,'I8AG', 1 1 X , 
1'REAL',11X,'IHAG',11X,'flEAL',11I,'IMAG '//) 

DO  28  1*1, N 

READ(5,26)  YOR ,Y  01,10(1) .YLR.YLI ,IL (I) 

26  PORHAT(8(E10.3)) 

YO  (I,I)=Y0R»XU*I0I 
YL  (I»I) =ILR*XJ*YII 

NR ITE (6, 27)  I, I , YO (1 ,1) , 10 (I) , YL(1 ,1) , II  (I) 

27  FORMAT  (IX* 12,2 X, 12, 8 (5X, 1PE10.3)  /) 

28  CONTINUE 

IF  (OPTION.EQ.11.OH.OPTION.EQ.21)  GO  TO  32 

IP  (M. EQ. 1)  GO  TO  32 

K1=N-1 

DO  31  1=1, K1 
K2=I*1 

DO  31  J=K2,N 

READ (5,29)  YOR , YOI ,YLR ,YLI 

29  FORHAT(2(E10.3)  , 20X,  2(  El  0.  3)  ) 

YO  (I,J)=Y0R*XJ*Y0I 

YL  (1,0) =YLH*XJ*YLI 
YO  (J,I)  = YO (1,0) 

YL  (J,I) = YL  (I  ,J) 

NR  ITE  (6,  30)  1,0,  YO  (I  ,J)  , IL  (I  ,J) 

30  FORM AT ( IX, 12, 2X, 12 ,2 (5X.1PZ10.3) ,30X,2  (5X„1PB10.3) ) 

31  CONTINUE 
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SO=ZBBOC 
SL-ZBROC 
DO  33  .3=1, 1 
A(I,J)=T0(I.I)  *TI(I,<3) 

P(I,<3)=TL(I,I)  *TI(I,<3) 

S0=S0*TT (J,I)*I0(<3) 

33  Sl=St*TI  (.3, 1)  *11  (.3) 

B(I)=S0 

34  BA(I)  = SL 
GO  TO  39 

35  DO  38  1=1,11 
SO=Z8ROC 
SL=ZEROC 

DO  37  <3=1,  R 
SOBO=ZBROC 
SOHL*ZBROC 
DO  36  R=  1,1 

SOHO»SOS<HTO(I,R)  *TI(E,<3) 

36  SOHl=SOai+n.;Z,R)*TI(K,J) 

A (I,J) =S0H0 

p (i,  j)  =som 

S0=S0*TI (J,I) *10  (J) 

37  SL»3l+TI  (<3,I)  *11  (<J) 

B(I)»S0 

38  BA(I)=SL 

39  DO  42  1=1, B 
DO  41  J=1,B 
SO=2EROC 
SL=ZBB0C 

DO  40  K*  1,  a 
S0=S0*TI  (R,I)  * A (K,<3) 

40  SL=5L*TI(R,I)*P(B,<3) 

TO  (I,J)«S0 

41  tL(I,J)*St 
I0(I)  = B(I) 

IL  (I)  = SA  (I) 

42  IP  (OPTION.  EQ.  1 1.  OH.OPTIOR.  EQ*  12)  IL(I)=-  IL(I) 

C 

C*****PREQOERCT  DEPERDEHT  CALCOLATIOBS** •**••*•*•** 

c 

43  COBTINOE 

BEAD (5,44, EBD= 60)  F 

44  FOBHAT (E 10. 3) 

OHEGA=TBO*PI*F 

C 

C COBPOTE  THE  TEBHI4AL  VOLTAGES 

C 

C FOBH  THE  EQOATIOHS 

C 

DO  45  1=1, a 
S=G(I) 

IP  (OPTION. EQ. 1 1 .OB.OPTIOR. EQ. 12)  B=OBE/B 

8=OHEGA*8*l 

CO  (1,1) =DCOS (B) 

45  P (I , I) =XJ*DSIR (B) 

DO  48  1=1, a 
SO=ZEROC 

DO  47  .1=1,  N 
SL=ZEBOC 
DO  46  K=  1,  N 

4 6 SL=SL*TL  (I,R)*G(R) *P  (R,  R)  *T0  (R,<3) 


PLATP184 
PZ.1TP185 
PLATP18* 
PLATP187 
PLATP188 
PL ATP 189 
PL ATP 190 
PLATP191 
PLATP192 
PLATP193 
FLATP19* 
PLATP195 
PLATP196 
PLATP197 
PLATP198 
PLATP199 
PLATP200 
PI.  AT  1 201 
FIATP202 
P1ATP203 
PLATP204 
PLATP205 
PLATP206 
PLATP207 
PLATP208 
PLATP209 
PLATP210 
PLATP211 
PLATP212 
PLATP213 
•LATP214 
PLATP215 
PLATP216 
PLATP217 
PLATP218 
PLATP219 
PLATP220 
PIATP221 
►PLATP222 
FLATP223 
FLATP224 
FLATP225 
FLATP226 
FLATP227 
FLATP228 
FLATP229 
PLATP230 
FLATP231 
FLATP232 
FLATP233 
FLATP234 
FLATP235 
FL4TP236 
FLATP237 
FLATP238 
FIATP239 
FLATP240 
PLATP241 
FLATP242 
FLATP243 
PLATP244 
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A (I. J)  *SL*IL  (I,J)  *C 0 (J,  J)  *10  {I , J)  *C0  (1,1) 

47  S0*S0+TL  (I,J)*G(J)*P(J,J)*IO(J) 

A(I,X)*A(I,I)*P(I,I)/G(I) 

48  B(I)*SO*CO  (I#X)  *10(1)  ♦IL(I) 

C 

C SOLVE  tHE  EQUATIONS 
C 

CELL  LEQT1C(A,I,S,B, 1,I,0,HA,IBR) 

IEB*IEB-128 
IP  (IBB. II. 1)  IER*0 
■BITE (6 , 49)  P,IER 

49  POBHAT (1H1 , ' PREQUBBCT (flEBTZ) * • , 1 PE  1 1. 4 , 1 0X , ' SOLDI ICH  EBHOB* 
1 2X ,12/) 

■RITB(6,50) 

50  FOBS AT (1 6X,' RIBS' ,8X, ' VO B{ VOLTS)  »,3X,'V0A(DEGIEBS) ',8X, 

1 'VLB (VOLTS)  • ,3X, • VIA (DEGREES) •///) 

C 

C COMPOTE  AID  PRIST  THE  TEB8IIAL  VOLTAGES 
C 

DO  52  I*  1#  M 
SOSZEROC 
DO  51  J*1,B 

51  SO*SO+IO (I,J)  *B(J) 

52  BA(I)*-G(I)*P(I,I)»I0(I)  *00(1,  I)  *B(I) »G(I) *P  (1,1) "SO 
IP  (OPTIOH.  EQ.21.  OB.OPTIOI.  IQ.  22)  GO  TO  56 

DO  54  1*1,1 
S0*ZEH0C 
Sl*ZER0C 
DO  53  J*1,S 
SO*SO-TO  (I , J)  *B  ( J) 

53  SL*SL*TL(I,J)*BA(J) 

A (1,1) *10(1)  *S0 

54  P(I,I)*-IL(I)  *SL 
DO  55  I* 1, H 
B(I)*A(I.I) 

55  (I)*P(I,I) 

56  DO  59  I* 1, S 
SO*ZEBOC 
SL*ZEBOC 

DO  57  J*  1 , B 
S0*S0»C(I,J) *B (J) 

57  SL*SL+C(I,J) *RA(J) 

V0*S0 

VL*SL 

V0«*CDABS(V0) 

VLH*CDABS ( VL) 

V0B*DRBAl (VO) 

V0I=DI RAG (VO) 

VLB*DREU(VL) 

VLI=DIHAG(VL) 

IP  (VOR. EQ. ZERO. AND. VOI . EC. ZERO)  V0B*CRE 
IP  (VLB. EQ. ZERO. AMD. VLI. EG. ZBBO)  7LR*CNE 
V0A*DATAS2 (VOI,VOR) *OSE80/PI 
VLA=DATAS2 (VLI, VLB) *ONB80/PI 
WRITE (6, 58)  I, VOR, VOA, VLH,VLA 

58  POBHAT(17X,I2,8X,1P£10.3,3X, 1PE10.3,  10X, 1PE10.3,3X, 1PB13.J/) 

59  COSTIStJE 
GO  TO  43 

60  STOP 
END 


PLATP245 

PLATP246 

PLATP247 

PLATP2R8 

PLATP249 

PL ATP? 50 

PLATP251 

PLATP2S2 

PLATP253 

PLATP2S4 

PLATP255 

PLATP256 

PLATP257 

PLATP2S8 

PLAT P2 59 

PLATP260 

PLATP261 

PLATP262 

PLATP263 

PLATP26* 

PLATP265 

PLATP266 

PLATP267 

PLATP268 

PLATP269 

PUTP270 

PLATP271 

PLATP272 

P1ATP273 

.PLATP274 

2LATP275 

PLATP276 

PIATP277 

PLATP278 

PLATP279 

PLATP280 

PLATP28 1 

P1ATP282 

PLATP283 

PLATP284 

PLATP285 

PLATP286 

PLATP287 

PLATP288 

PLATP289 

PLATP290 

PLATP291 

PLATP292 

PLATP293 

PLATP294 

PLATP295 

PLATP296 

PLATP297 

PLATP298 

PLATP299 

PLATP300 

PLATP301 

P1ATP302 

PLATP303 

PLATP304 
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TABLE  C-l 


5» 

\ 


Card  Number 

Double 

Single 

050 

REAL  *8 

REAL 

051 

COMPLEX  *16 

COMPLEX 

053 

3. 141592653D0 

3.1415926E0 

053 

2.997925D8 

2. 997925E8 

054 

change  all 

D's  to 

E's 

055 

DCMPLX (0 . DO , 0 . DO) 

CMP LX (0 . EO , 0 . EO ) 

056 

DCMPLX(1.D0,0.D0) 

CMPLX(1.E0,0.E0) 

057 

DCMPLX (0. DO, 1. DO) 

CMPLX (0 . EO , 1 . EO ) 

109 

DSQRT 

SQRT 

113 

DSQRT 

SQRT 

127 

DREAL 

REAL 

237 

DCOS 

COS 

238 

DSIN 

SIN 

289 

CDABS 

CABS 

290 

CDABS 

CABS 

291 

DREAL 

REAL 

292 

DIMAG 

AIMAG 

293 

DREAL 

REAL 

294 

DIMAG 

AIMAG 

297 

DATAN2 

AT  AN  2 

298 

DAT AN 2 

AT  AN  2 
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APPENDIX  D 


FLATPAK2 


Program  Listing 


•> 


C*  **************  ****•**•******•*«***»*••*••*•***•*•*•*  ******************|>ilAfR001 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  FLATPAK2 

(FORTS AH  XT,  DOUBLE  PRECISION) 

BRITTEN  BT 

CLATTON  B.  PAUL 

DEPARTMENT  OP  ELECTRICAL  ENGINEERING 
UNI VEBSXTI  OP  KEBTOCKI 
LEXINGTON,  KEBTOCKT  40506 

A DIGITAL  CON PUT  ER  PBOGBAH  TO  COKPOTI  THE  TERHIIAL  VOLTAGES 
(BITH  RESPECT  TO  THE  REFERENCE  BIBE)  OP  AM  N*1  HIRE  PLATPACK  OB 
RIEEON  CABLE  POR  THE  'QUASI-TEH*  BODE  OP  PROPAGATION. 

THE  DISTRIBUTED  PARAMETER,  HULTXCORDOCTOR  TRARSB2SSX0I  LIME 
EQUATIONS  ARE  SOLVED  POR  STBADT  STATE,  SINUSOIDAL  EXCITATION 
OP  THE  LIMB. 

I 

THE  M+1  SIRES  ARE  ASSURED  TO  BE  PARALLEL  TO  EACH  OTHER. 

THE  N*  1 HIRES  ARE  CONSIDERED  TO  Be! IHPERPECT  CONDUCTORS.  THE  SELP 
IHPEDAMCES  OP  EACH  HIRE  INCLUDE  SKIN  BEPECT. 

THE  SURROUNDING  HBDIA  ARE  ASSURED  TO  BE  LOSSLESS. 

THE  PER- ON IT-LBNGTH  CAPACITANCES  OP  THE  CABLE (NITH  AND  HITHOOT 
THE  DIELECTRIC  INSULATIONS  PRESENT)  ARB  INPOT  DATA  AND  HAT  BE 
COMPUTED  BITS  THE  PRCGRAH  GETCAP. 

LOAD  STRUCTURE  OPTION  DEFINITIONS: 

OPTION* 11, THEVENXN  EQUIVALENT  LOAD  STNUCTURNS  IXTB  DIAGONAL 
IMPEDANCE  RAT BICES 

OPTION* 12 ,TH EVE BIN  EQUIVALENT  LOAD  STBUCTUBRS  BITH  PULL 
IMPEDANCE  MATRICES 

OPTION* 21 .NORTON  EQUIVALENT  LOAD  STRUCTURES  BITH  DIAGOIAL 
ADMITTANCE  MATRICES 

OPT ION* 22, NORTON  EQUIVALENT  LOAD  STRUCTURES  NITH  PULL 
ADMITTANCE  BATRICES 

SUBROUTINES  USED:  L2QT1C,EIGCC 


PLATP002 
PL AT POO  3 
PLATPQ74 
PLATP005 
FLATP0O6 
FLATP007 
PLATPOOS 
PLATP009 
PLATP010 
PLATPO 1 1 
PLATP012 
PLATPO 13 
PLATPO 14 
PLATPO 15 
PLATPO 16 
PLATPO 17 
PLATPO 18 
PLATPO 19 
PLATPO 20 
PLATPO 21 
PLATPO 22 
PLATPO 23 
PLATPO 24 
PLATP025 
PLATPO 26 
PLATP027 
PLATP028 
PLATP029 
PLATP030 
PLATPO 31 
PLATP032 
PI.ATPO  3 3 
PLATP034 
PLATPO 35 
PLATPO 36 
PLATPO 37 
PLATPO 38 
PLATPO 39 
PLATPO 40 
PLATP041 


C** ********* ************** **************** **•***••*•*• •****************«px,aifo42 


C 

C 

C 

C 

C 

C 

c 

c 


ALL  VECTORS  AND  MATRICES  IN  THE  POLLQRING  DIMENSION  STATIHENTS 
SHOULD  BE  OP  SIZE  H HHERE  N IS  T8B  NUMBER  OP  R IR IS {RECLUSIVE  OP 
THE  REPERENCE  HIRE),  I.E.,  C (1 ,N) ,C0 |N,N) ,CI (M, N) 

10  (H)  , IL  (I)  ,10  (N,N),TL(N,N),B(R),A(N,I),P-'N,H)  , EM  (N)  ,EP{N)  , 

HI  (N,N),M2(N,N)  , V 1 (N)  , V2  (»)  ,T  (N,  N)  ,TI(N,NJ  ,G(M)  ,V3(B),HA{N) 

THE  VECTOR  BK  HOST  BE  OP  LENGTH  2R(N*1) 

IMPLICIT  REAL*8  (A-H.O-Z) 

INTEGER  OPTION 

REAL*8  L,LDC,C(  2,  2),C0(  2,  2),V3(  2),CI{  2,  2),HK(  12), 

1 HU04PI ,HU08PI 

CCHPLEX*16  XJ,SUHO,SUMi,SO,Sl,VO,Vl,EEROC,ONBC,Z,BPP,BNN,GAH 
1,I0(  2)  , IL  ( 2)  ,I0{  2,  2)  ,IL(  2,  2),B<  2),A(  2,  2),BA(  2),G{  2), 
2P<  2,  2)  ,EP  ( 2)  , EM  ( 2),H1(  2,  2),H2(  2,  2),V1{  2),V2{  2), 

3T ( 2,  2)  ,TI(  2,  2)  , JOHEG A 
DATA  PI/3. 14159265 3D 0/,V/2. 99792 5D 8/ 

DATA  CHTH/2. S4D-5/,Z ERO/0. DO/, TBO/2.  DO/, H008PI/. 5D-7/, ONE/1. DO/, 
1 HU04PI/1. D-7/, THREE/3. DO/, P25/.25DO/,OIBP1 5/1. 15D0/,P15/.1 5D0/, 


PLATP043 
PLATPO 44 
PLATP045 
PLATP046 
VIATP047 
E ,ATP048 
PLATP049 
PLATP050 
PLATP051 
FLAfP052 
PLAYP053 
PLATP054 
PLATP055 
PLATP056 
PLATPO 57 
PLATP058 
FLATP059 
PLATP060 
PLATP061 
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2P5/.5D0/,ONE80/180.D0/ 

V?=»*V 

ZEROC=DCHPLX (0.00,0.  DO) 
ON  EC*DCHPLX(  1.00,0.  DO) 
XJ=DCHPiX(0. 00,1.00) 


PLATP062 
PLATP063 
PLATP06* 
FLATP065 
FLATP066 
Pi ATP 067 

C****»P8EQ0SJHCI  INDEPENDENT  CALC0LATIONS4*******************************PIAT?068 

C 

c 
c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


BEAD  AND  PHIBT  INPUT  DATA 

BEAD  (5,1)  H, OPTION, i 
1 FOBHAT (81,I2,8X,I2,E10. 3) 

IF  (0PTI0hVEQ.il. OB.OPTION.EQ.  12)  60  TO  J 
IF  (OPTION.  EQ.  21.  OH. OPTION.  EQ.  22)  GO  TO  3 
HBITE(6, 2) 


FLATP069 

PIATP070 

PIATP0T1 

P1ATP072 

PIATP073 

FIATP074 

PIATP075 

PIATP076 


2 FORHAT ( • LOAD  STROCTORE  OPTION  ERROR'//'  OPTION  HOST  Z^nAT  1 1, 12 ,2PIATP077 


11, OB  22V//) 

GO  TO  81 

3 1P*-H+1 

HSITE (6, 4)  HP, L, OPTION 

4 FORRAT(1H1,49X,' PLAT FA K2 */// 

1 95X,I2, • PARALLEL  HIRES'/// 

239X, 'LINE  LENGTH*  ',1PE13-6. • NBTJRS •/// 

342X, 'LOAD  STROCTORE  OPTION-  *,I2///} 

READ  ENTRIES  IN  THE  PBB-OHIT-LENGTH  TBANSNIS 7I0N  LINE 
CAPACITANCE  HATRIX,C  (COHPOTED  NITH  GBTCAP) 

(STORE  C IN  ARRAY  C) 

DO  6 1*1, N 
DO  6 J*I,N 
NEAD  (5,5)  K,  N,C  (K,  H) 

5 FORHAT (4 X,  12, 3 X, 12, 2X, El 3. 6) 

6 C(H,K)*C  (K,H) 

BEAD  ENTRIES  IN  THE  PER-ONIT-LBNGTR  TRANSBISSION  LINE 


PLATP078 
PLATP079 
PLATP080 
PLATP081 
PLATP082 
PLATP083 
PLATP08* 
PLATP085 
PLATP086 
FLATP087 
PLATP088 
PLATP089 
PLATP090 
FLATP091 
PLATP092 
PLATP093 
FLATP09* 
PLATP095 
FLATP096 
PLATP097 

CAPACITANCE  RATRIX  HITH  THE  HIRE  INSOLATIONS  REHOYHD.CO  (COHPOTED  PLATPG9S 


C 

C 

C 

C 

C 


HITH  GETCAP) 

(STORE  CO  IN  ARRAY  CO) 

DO  8 1*1, N 
DO  8 J*I.N 

READ  (5, 7)  K, H,CO (K,H) 

7 FORHAT (4 X, 12,3 X, 12, 21, El 3. 6) 

8 CO  (R, K) *C0 (K,N) 


PLATP099 
FLATP100 
FLATP101 
FLATP102 
PLATP103 
PLATP104 
PLATP105 
PLATP106 
P1ATP107 

COHPOTE  THE  PER-0NIT-LENGTH  TRANSHISSION  LINE  INDOCTANCB  NATRIX,L,PLATP108 
AND  THE  INYERSE  OF  THE  CAPACITANCE  HATRIX.CI  PLATP109 


(STORE  Cl  IN  ARRAY  Cl  AND  L IN  ARP  AY  CO) 

DO  10  1*1, N 
DO  9 J=1,N 
T(I,J) =C  (I,J) *ONEC 
A(I,J)  *CO(I,J)  *ONEC 
TI  (I , J) * ZEROC 
9 P (I,  J)  -ZEROC 
TI  (I ,1) =CNEC 
10  P (I, I) *OREC 

CALL  LEQT1C(A,N,S,P, N,N,0,HA,KER) 

CALL  LEQT1C(T,N,N,TI,N,N,0,HA,REt) 
KER*KER- 128 


PLATP110 
PLATP111 
Pr  ?P112 
PLATP1 13 
FLATP1 14 
PLATP115 
Pi ATP 116 
PIATP117 
FLATP1 18 
PLATP1 19 
PLATP120 
FLATP121 
PLATP122 
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noon 


NEB=NEB- 128 
IF  (KER.NE. 1)  KER=0 
IF  (HER. ME. 1)  NER=0 
BR ITE  (6 , 11)  KEB 
HRITE(6, 11)  HER 


FLIT PI 23 
FLATP124 
FLATP125 
FI  ATP 126 
FI ATP  127 


11  FORMAT  (//,'  PER-ONIT-LENGTH  CAPACITANCE  MATRIX  INVERSION  ERROR3  ' ,FLATP128 


112//)  FIATP129 

DO  12  1=1, R FIAT PI  30 

DO  12  J=1,N  FLATP131 

Cl  (I,J)=DHEAL(TI(I,J))  FLATP132 

12  CO  (I, J)  =DBBAL (P (I, J) ) / VV  PLATP133 

FLATP134 

READ  AID  PRINT  CHARACTERISTICS  OF  THE  RIRES  TO  BE  USED  II  THE  SEIPFIATP135 


IHPEDAHCE  CALCULATIONS 

READ  (5,13)  RHS,SIG,NS 

13  FORMAT  (2  (SX, E10. 3)  ,8X,I2) 

BRITB  (6, 14)  BBS, SIG, IS 

14  POHHAT  {////•  HIRES  ARE  STRAIDED  BITH  EACH  STIAID  OF  RADIOS*  ', 
1 1PE10. 3,  • MILS'//'  CONDUCTIVITY  OF  HIRE  STRANDS-  ', 

2 1PE10. 3,  • SIEBEMS  PER  METER'//'  IOBBEP  OF  STRANDS*  * ,12 ////) 
RHS*RBS*CHTH 

READ  AND  PRINT  ENTRIES  IN  LOAD  ADBITTAICE  (IHPBDAICE)  HAT RICES 
AND  SHORT  CIRCUIT  CURRENT  SOOICE(OPEI  CIRCUIT  VOLTAGE  SOURCE) 
VECTORS 

(STORE  ADB ITT A NCI (IHPBDAICE)  MATRICES  AT  X=0  II  ARRAY  TO  AID 
THOSE  AT  X*L  IN  ARRAY  YL.  STORE  SHORT  CIRCUIT  CURRENT  SOURCE 
(OPEN  CIRCUIT  VOLTAGE  SOURCE)  VECTORS  AT  X=0  IN  ARRAY  10  AID 
THOSE  AT  X*L  IN  ARRAY  IL.) 

IP (OPTION. BQ. 1 1. OR. OPT ION. EQ. 12)  GO  TO  17 
HRITE (6, 15) 

15  PORHAT  (//, 18X,'  ADMITTANCE  AT  X"0' , 101, 'CURRENT  SOURCE  AT  X=0', 
112X, 'ADMITTANCE  AT  X=L* ,10X, 'CURIBIT  SOURCE  AT  X=L'/) 

HRITE (6, 16) 


FLATP136 
FLATP137 
FLATP138 
FLATP139 
FLAT? 140 
F1ATP141 
FLATP142 
FLATP143 
FLATP144 
PLATP145 
FLATP146 
FLATP147 
FLATP148 
FLATP149 
FLATP1S0 
FLATP151 
FLATP152 
F1ATP153 
FLATP154 
FLATP155 
FIATP156 
FLATP157 
FLATP158 


16  FORMAT  (2 IX,'  (SIEMENS) • ,23X , ' (AMPS) ', 22X, • (SIEMENS)  • ,23X,' (AMPS) '/)F1ATP159 

GO  TO  20  PIATP160 

17  HRITE(6,  18)  FLATP161 

18  FORMAT (//,18X,* IMPEDANCE  AT  X*0» , 1 IX,' VOLTAGE  SOURCE  AT  1*0',  FLATP162 

112X, 'IMPEDANCE  AT  X=L' , 1 IX , • VOLT AGE  SOURCE  AT  X=L'/)  FLATP163 

BRITE(6, 19)  FLATP164 

19  FORMAT (23X,' (OHMS) ', 23 X, • (VOLTS)  »,24X,' (OHMS) • ,231,' (VOLTS) •/)  FLATP165 

20  NRITE(6,21)  FLATP166 

21  FORMAT  (•  ENTRY',  10X, 'REAL', 1 1X, • IHAG' , 1 1X, 'REAL', 1 1X,'XMAG' , 1 IX,  FLATP167 

1'REAL' ,11X,'IMAG',11X,'HEAl',11X,'IHAG'//)  FLATP168 

DO  24  1*1,1  FLATP169 

RRAD(5,22)  YOR , Y 01,10 ( I) , YLR,ILI,Il (I)  FLATP170 

22  FORMAT  (8  (E10.  3) ) FI.ATP171 

YO  (1,1) =Y0R+XJ*Y0I  FLATP172 

YL(I,I)=YLR*XJ*YLI  FLATP173 

HRITE(6, 23)  I,I,Y0(I,I) ,10 (I) ,YL(I,I) , IL (I)  FLATP174 

23  FORMAT  (IX,  12, 2X, 12, 8 (51,  IP  E 10..  3)  /)  FLATP175 

24  CONTINUE  FLATP176 

IF  (OPTION. BQ.  11. OB. OPTION.  EQ.21)  GO  TO  28  FLATP1 77 

IP (N. EQ.  1)  GO  TO  28  FLATP178 

K1=H-1  FLATP179 

DO  27  1=1, HI  PLAYP180 

K2=I+ 1 FLATP181 

DO  27  J=K2,N  PLATP182 

READ  (5, 25)  Y0B,Y0I,YLR,YLI  PLATP183 
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25  FOBflAT(2(E10.3)  , 20X,  2(E10.  3)  ) 

TO  (Iv J) =T0B*XJ*T9I 

TL  (I,  J) =TL8*XJ*TLI 
TO  (J,I) *10 (I,J) 

TL  (J,I)*IL  (I,J) 

VRITE(6,26)  I,J,T0(I,J),I1M,J) 

26  FOBHAT  (11,12,21,12,2 (51, 1P210. 3)  , 301,2 (51, 1PB10. 3) ) 

27  COHTIBOE 

COHPOTE  INC  STORE  THE  HATBXCES  AID  TECTOBS  020,  C*H 
FOB  THE  THBVEBIN  E QUIT ALEUT  OB  TO*CIBV,  TL*CIBV,  10, 
BOBTOB  EQO XT ALEUT  IB  ABBATS  H1,B2,V1,Y2,  BESPECTITELI 

28  IF  (OPTIOB.BQ.il)  SO  TO  29 
IF  (OPTXOB. EQ. 12)  GO  TO  32 
IF  (OPTIOH. BQ. 2 1)  SO  TO  36 
IF  (OPTIOB. BQ. 22)  GO  TO  39 

29  00  31  1*1, H 
SO*ZBBOC 
SL*2EB0C 

DO  30  J*1,H 
HI  (I,J)*C(I,3) *T0(J, J) 

H2  (I,J)*C(I,J)  *TL(J,  J) 

S0*S0*C(I,J) *10(0) 

30  SL*SL*C (X,J)  *IL(0) 

VI  (I)*S0 

31  V2  (I)  *SL 
GO  TO  A3 

32  DO  35  I*  1,  H 
SO*ZBBOC 
SL*ZEB0C 

DO  34  J*1,B 
SOHO*ZBBOC 
SUHl*ZEBOC 
DO  33  B*  1 , B 

SDH0*S0H0*C(I,K)  *TO(K,  J) 

33  SOHl*SUHl*C (I,R)  *TL ( K, 0) 

S0*S0*C(I,0)*I0(0) 

SL*SL*C(I,0) *11 (J) 

HI  (I,3)*S0H0 

34  H2  (I, J) *SUHL 
VI  (I)*SO 

35  V2  (I) =SL 
GO  TO  43 

36  DO  38  1*1, B 
DO  37  J*  1,  B 

HI  (I,J)*IO  (1,1)  *CI(I,J) 

37  H2  (I,J)  *TL  (1,1)  *CX (I,J) 

VI (I)  *10 (I) 

38  V2  (I)  *IL  (I) 

GO  TO  43 

39  DO  42  1*1, B 
DO  41  0*1, B 
SOHO*ZEROC 
SOHL*ZBBCC 
DO  40  K*1 , B 

SOHO*SOHC*TO (I , K) *CI (K, J) 

40  SOHl=SOHl*TL(I,K) *CI(K,J) 

HI  (I, J) =SDHO 

41  H2  (I, J) *SOHL 
VI  (I)  =10  (I) 


FLAT? 184 
FLATP185 
FLAT PI  86 
FLATP187 
FLATP188 
FLATP189 
FLATF190 
FLATP191 
FLATP192 
, C*VO,  C*Vl  FLATF193 
IL  FOB  THE  FLAT? 194 

F1ATP195 
FLA'i'P196 
FLATP197 
FLATP198 
PL ATP 199 
FLATF200 
FLATP201 
FLATP202 
PLATP203 
FLATP204 
FLATP20S 
FLAT P2 06 
FLATP207 
FLATP208 
FLATP209 
FLATP210 
FLATP211 
FLATP2 1» 
FLATP213 
FLATP214 
FLATP215 
FLATP216 
FLATP217 
FLATP2 18 
FLATP219 
FLATP220 
FLATP221 
FLATP22? 
FLATF223 
FLATP224 
FLATP225 
FLATP226 
FLATP227 
FLATP228 
FLATP229 
FLATP230 
FLATP231 
FLATP232 
FLATP233 
FLATP234 
FI ATP 235 
FLATP236 
FLATP237 
FLATP238 
FLATP239 
FLATP240 
FLATP241 
FLATP242 
FLATP243 
FLATP244 
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c 

c 

c 

c 


#2  72  (I)  ~ tL  (I) 

43  COITIN  E 

COMPOTE  THE  MATRIX  CU  AID  STORE  II  AHBAT  CO.  CORPOTE  THE  SUMS 
OP  ELEHEMTS  II  EACH  ROI  OP  C AMD  STOIE  II  ARRAT  13. 

DO  46  1*1,1 
S=ZEBO 
DO  45  J*1,H 
SS*2ER0 
DO  44  K*  1,  I 

44  SS*SS+C(I,E)  *C0(K,J) 

P (I,J)  *SS*ONEC 

45  S*S+C(I,J) 

46  P3(I)*S 

DO  47  1*1,1 
DO  47  J*1,l 

47  C0(I,  J)*DBBAL(P(I,J>) 


C*****PREQOEMCI  DEPBIDEIT  CALCOLATIOIS < 
C 

48  COITIHOE 

READ  (5,49, El D*81)  P 

49  FORMAT (E10.3) 

OHEGA*TNC*PI*P 

JOHBGA*XJ*OHEGA 


C 

C 

C 


COMPOTE  THE  SIRE  SELF  IMPEDANCES 
LDC*  M008PI 

DELTA*OIE/  (TNO*PI*DSQRT(SIG*P*H004PI) ) 
RDC*OIE/ (PI*SXG*RHS*RHS) 

IF  (RIS. LB. DELTA)  GO  TO  50 
IP  (IIS.GE.THRBE*3dLTA)  GO  TO  51 


FLATP245 
PL  AT  P2  46 
FIATP247 
PLATP248 
PLATP249 
PHTP250 
P1ATP251 
PLATP252 
PLATP253 
PLATP254 
PLATP255 
FLATP256 
PLATP257 
PLATP258 
PLATP259 
PLATP260 
P1ATP261 
PLATP262 
PLATP263 
•PLATP264 
FLATP265 
PLATP266 
PLATP267 
PLATP268 
FLATP269 
i LATP270 
PLATP27 1 
PLATP272 
PLATP273 
PLATP274 
FLATP275 
PLATP276 
PLATP277 
FLATP278 


50 


C 

C 

C 

c 

c 


Z*(P25*(R0S/DBLTA*THREE) 4RDC+J0MBGA* (0IEP15—P1 5*RBS/DELTA)  *LDC)/ISF1*TP279 
GO  TO  52  PLATP280 

Z*(RDC*JOHEGA*LDC)/NS  PLATP281 

GO  TO  52  PIATP282 

51  Z* (P5*RHS*HDC/DELTA+JOHEGA*?RO*DBLTA*LDC/R8S)/MS  P11TP283 

PLATP284 

COMPOTE  THE  EIGEIV ALOES  AID  THE  EIGBITECTOSS  OP  THE  PRODOCT  IZ  FLATP285 

(STORE  THE  EIGENVECTORS  AS  COLOMIS  0?  AREA!  T AID  THE  EIGBIVAL03S  FLATP2S6 


C 

C 

C 

c 


II  AARAT  B) 

52  0H2*0HBGA*0MEGA 
DO  53  1*1,1 

DO  53  J*1,l 

53  A (I, J) CHBGA*Z4  (73 (I) »C  (I, J) ) -OH2*CO (I, J) 

CALL  EIGCC  (A,I,M,2,B,T,H,VK,IBR) 

LER*LER- 128 

IP  (LER. LT. 1)  LER=0 

COMPOTE  THE  IIVSRSE  OP  THE  TRAMS FORM AT 10 I MATRIX,  T 
(STORE  THE  INVERSE  II  ARRAT  TI) 

DO  55  1*1,1 
DO  54  J*  1,  N 
A(I,0)*T(I,J) 

54  TI(I,J)  =ZEROC 

55  TI  (1,1) *CNBC 

CALL  LEQT1C(A,N,N,TI,I,N,0,HA,HER) 


FLRTP287 

PLATP288 

FLATP289 

FLATP290 

FLATP291 

PLATP292 

FLATP293 

FLATP29* 

PLATP295 

PLATP296 

FLA;P297 

FLATP298 

PLATP299 

PLATP300 

VLATP301 

FLATP302 

PLATP303 

FLATP304 

PLATP305 
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1 


c 

c 

c 

c 

c 


c 

c 

c 


HEB*HER- 128 
I?  (BER.NE.  1)  B2R=0 

COMPOTE  THE  TERHIHAL  VOLTAGES 

PORB  TEE  EQUATIONS 

BO  58  1=1, I 

SO*ZBROC 

SL=ZEIOC 

DO  57  J=1.  4 

SUB0*ZER0C 

SU8l*ZSHCC 

DO  56  K*1,N 

subo=soho*hi (i,K)  *t(K,  J) 

56  SUHL*SUBL+fl2 (I,K) *T(K,  J) 

SO*SO»TI  (I,J)*V1 (J) 

SL»SL*?I(I,J)*V2(J) 

A (I, J) =S0B0 

57  P (I, J) *S0BI 
I0(I)*S0 
IL(I)*SL 

IP (OPTION. BQ. 1 1. OR. OPTION. BQ. 12)  It  (X) =-IL (X) 

CAB*CDSQRT  (B  (X) ) 

EPP=CDEXP(GAB*L)  *P5 
BNI«CDBXP (-GAB*l)  *P5 
BP  (I)*8PP*8NN 
EH  (X) *EPP-BNN 
S (I) =GAB/JOBBGA 

IP  (OPTION.  BQ.  1 1.  OR.  OPTION.  BQ.  12)  G (I)  -ONBC/G  (I) 

58  CONTINUE 

DO  60  1*1, a 
DO  60  J* 1 , N 
SUHO*Z2ROC 
SUHL=ZERCC 
DO  59  K*  1,N 

SOBO=SOBO*TI (X,K) *A(K,  J) 

59  SUHL*SUHL*TI  (X,K)  *P(K, <]} 

10  (I,J)=SUH0 

60  TL(I,J)*S0NL 
DO  63  1=1, N 
S0*Z8R0C 

DO  62  J*  1,  N 
SL=ZBB0C 
DO  61  K*  1, N 

S 1 SL=SL*VL  (I,K)  *G  (K)  *EN(K)  *T0(K,  J) 

A (I,  J)=Si*?T.  (X,  J)  *EP  (J)  +10  (1,0)  *BP  (I) 

62  S0=S0*TL  (I,.J)  *G  { J)  •BH(J)  *I0(J) 

A(I,I)*A(I,J)*EN(I)/G(I) 

63  B(I)=SO+EP(I)*IO(I)*IL(I) 

SOLVE  THE  EQUATIONS 

CALL  LEQT1C(A,N,N,B,  1, N, 0, HA,IER) 

IER=IER-128 
IP  (IBR.NZ.  1)  IER=0 
«RITE(6,64)  P, IER 

6#  PORBAT ( 1 HI , ' PREQUENCI (HERTZ) = *,1 PE  11. 4,1 OX, 'SOLUTION  ERROR*  « 

1 2X ,12/) 

HR  ITS  (6,65)  LEB, HK ( 1) 

65  PORBAT  ('  EIGEN  SOLUTION  ERROR*  *,14/'  EIGEN  SOLUTION  PRECISION* 


PLATP306 
n ATP307 
PXATP308 
PLATP309 
FLATP310 
PLATP311 
P1ATP312 
PLATP313 
PLATP314 
f LAPPS 15 
PLATP316 
PLATP317 
PLATP318 
PLATP319 
P1ATP320 
PLATP321 
PLATP322 
PLATP323 
PLATP32I 
PLATP325 
P1ATP326 
PLATP327 
PLATP328 
PLATP329 
PLATP330 
PLATP331 
PIATP332 
PLATP333 
PL AT P3 34 
HATP335 
PLATP336 
PLATP337 
PLATP338 
PLATP339 
PLATP340 
P1ATP341 
PLATP342 
PLATP343 
P1ATP344 
PLATP345 
PLATP346 
PLATP347 
PLATP348 
PLATP349 
PIATP350 
PLATP351 
PLATP352 
PLATP353 
PLATP354 
PLATP355 
PLATP356 
PLATP357 
PLATP358 
PLATP359 
PLATP360 
PLATP361 
PLATP362 
PLATP363 
PLATP364 
PLATP365 
•,FLATPJ66 
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11PB10.3/)  FLATP367 

WHITE (6,66)  HER  FLATP368 

66  F0R8AT(*  TRABSFOHBATIOH  BATHIX  IBTBBSIOI  BRROR*  ',12//)  FLATP369 

WRITE (6, 67)  FLATP370 

67  FORBAT (16X,*  BIBB* ,8X, ' VO 8 (VOLTS) *, 3X,' VO A (DEGREES) *,81,  PIATP371 

1* VLB (VOLTS) *,3X,' TLA (DECREES) •///)  FLATP372 

FLATP373 

COHPtJTB  AID  PRIWT  T8I  TBRHIWAL  TOLTAGBS  FLATP37* 

FLATP375 

DO  69  I* 1,B  FLATP376 

SOsZEBOC  FLATP377 

DO  68  3*1, W FLATP378 

68  S0*S0*T0(I,J)«8{3)  FLATP379 

69  G(X)*~G(I)«EW(I)*XO(I)  EP(X)*B(X)»G(I)*E*(X)*SO  FLATP380 

IF  (OPTXOR.  BQ.21 . OI.OPTIOS. BQ. 22)  GO  TO  7«  FLATP381 

DO  71  I* 1, B FLATP382 

SO*Z3HOC  PLATP383 

SL*ZEBOC  P1ATP38W 

DO  70  3*1,B  FLATP385 

SO*SO- TO (I ,3) *B (3)  FLATP386 

70  SL*SL+TL  (I,3)*G(3)  PLATP387 

T0(I,I)*I0(I) *S0  FLATP388 

71  TL(I,I)*-Il(I) ^SI  PIATP389 

DO  73  1*1,11  FLATP390 

SO*ZBROC  FLATP391 

SL*ZEROC  FLATP392 

DO  72  J* 1, H FLATP393 

SO*SO*T(I,3) *10(3,3)  FLATP39W 

72  SL*SI*T (I, J) *Tl (3,3)  PLATP395 

P(I,I)*S0  FLATP396 

73  A(I,X)  *SL  FLATPJ97 

GO  TO  77  PLATP3T8 

79  DO  76  1*1,11  FLATP399 

SO*ZEROC  FLATPWOO 

SL*XBROC  FLATPW01 

DO  75  3*1,1  FIATPW02 

S0-S0+T(I,3) *B(3)  FLATPW03 

75  SL»SL*T(I,3) *G(3)  PXATPWOW 

P(I,I)*S0  PLATPW05 

76  A (1,1) *SL  FLATPW 06 

77  DO  80  I*1,W  PLATPW07 

SO*ZEROC  FIATPW08 

SL*ZBBOC  PIATPW09 

DO  78  3*  1,H  FI  ATM  10 

S0*S0*CI  (1,3) *P{3,3)  FLATM11 

78  SL*SL*CI  (1,3) *A(3,3)  FLATPW 12 

VO* SO  FLATPW 13 

Tt*Sl  FLATPW 1W 

V0S*CDABS (TO)  FLATPW 15 

VIH*CDABS(TL)  FLATPW 16 

V0B*DRBAI (TO)  FLATPW 17 

V0I*DI BAG (TO)  FLATPW 18 

TLR*DRBAI(TI)  FLATPW 19 

TLI*DIBAG (TL)  FLATPW 20 

IF (VOB.EQ. ZERO. A HD. VOX. EQ. ZBBO)  V0B=CHE  FLATPW 21 

IF(TLR.EG.ZZRO. AMD.TLI. EC.ZEBO)  TLB*0RE  FLATPW22 

T0A=DATAR2  (TOI,  VOR)  »OHZ80/PI  FLATPW23 

VL A= DAT A 82 (VII, VLR) *O»E80/PI  FLATPW2W 

WRITE(6,79)  I,V0B,T0A,VLB,?LA  FLATPW25 

79  FORRAT(17X,I2,8X,1 PE  10.3,31, 1PE10.3,  10X, 1PEI0.3,3X,1PB10.3/)  FLATPW 26 

80  COHTINOE  FLATPW27 
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GO  TO  *8 
81  STOP 
BHD 


FLATPA28 
PL ATP* 29 
PL ATP* 30 


TABLE  D-l 


Changes  in  FLATPAK2  to  Convert 
to  Single  Precision  Arithmetic 


Delete  Card  051 

Card  Number 

Double 

Single 

053 

REAL  *8 

REAL 

055 

COMPLEX  *lb 

COMPLEX 

059 

3. 141592653D0 

3. 1415926E0 

059 

2.997925D8 

2. 997925E8 

060-062  change  all 

D's  to 

E’s 

064 

DCMPLX(0.D0,0.D0) 

CMPLX (0 . EO , 0 . EO ) 

065 

DCMPLX (1 . DO , 0 . DO ) 

CMPLX (l.E0,0.E0) 

066 

DCMPLX ( 0 . DO , 1 . DO ) 

CMPLX (C. E0,1.E0) 

132 

DREAL 

REAL 

133 

DREAL 

REAL 

262 

DREAL 

REAL 

275 

DSQRT 

SQRT 

329 

CDSQRT 

CSQRT 

330 

CDEXP 

CEXP 

331 

CDEXP 

CEXP 

415 

CDABS 

CABS 

416 

CDABS 

CABS 

417 

DREAL 

REAL 

418 

DIMAG 

AIMAG 

419 

DREAL 

REAL 

420 

DIMAG 

AIMAG 
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Card  Number 

Double 

Single 

423 

DATAN2 

ATAN2 

424 

DAT AN 2 

ATAN2 
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APPENDIX  E 


NROOT 


Subroutine  Listing 


1 


SUBHOtJTISE  SHOOT  (H-l  B IT 

*«•).  .iSffrUi’s"; 

Ml*  ZBBO/Q.DO/,OHE/1.DO/ 

l\—  1 


*,  HA) 

(HA) ,SOHV, JEBO,OSE 


DO  1 J*2,H 

DO  1 1=1, j 
l=J>1 
K=K*1 
B(K)=B  (1) 
H?=0 


CAU  EIGIN(B,X,B#Hf,H*H) 

U 

DO  2 J*1,a 
Is  L 4J 

2 *ONE/DSQHT  (DABS  (B  (L) ) ) 


DO  3 J=1,H 
DO  3 1=1, H 

k=k*i 

3 B(K)=X(K)*XL(J) 

DO  4 1*1, a 
H2=0 

DO  4 J*1,B 
S1=H* (1-1) 
i*H*(J-1)»I 
1(1) *ZEBC 
DO  4 K=1,H 

si=ni*i 
S2=N2* 1 

4 *(£)•*  (1)*  B(B1)**(S2) 

LX  U 


5 


DO  5 J=1,a 
DO  5 1=1, j 

ni=i-m 

S2=a*(j-ij 
1=1*1 
A(L)=ZEHO 
DO  5 K = 1 ,a 

si=ni*h 

S2=M2*  1 


cail  bigen  ( a, x, a, a? , n*b) 

L=0 


DO  6 1=1, a 
l=l*I 

6 *MD=A(I) 

DO  7 1=1, a 
N2=0 

DO  7 J=1,a 

si=i-a 

i=a*(j-i)+j 
A(I)=ZERC 
DO  7 K=1,a 

hi=ni*h 

N2=N2* 1 

7 K-O*  =*  ^ +fl<N1)  *I(N2) 

DO  8 J=1,N 

DO  8 1=1,8 
K=K*1 


MIOOTOOI 

IBOOT002 

I100T003 

IHOOT004 

HHOOTOOS 

SBOOT006 

SHOOT 007 

SBOOTOOB 

SBOOT009 

1BOOTO 10 

IBOOTOII 

SBOOTO 12 

SBOOT013 

SBOOTO 14 

SBOOTO 15 

SBOOTG 16 

SBOOTO 17 

SBOOTO 18 

SBOOT0 19 

S800T020 

SBOOTO 21 

SBOOTO 22 

SBOOTO 23 

SBOOTO 24 

BBOOT025 

BB00T026 

BBOOT027 

BBOOT028 

BBOOT029 

BBOOT030 

SBOOTO 31 

SBOOTO 32 

SBOOTO 33 

SBOOT034 

SBOOTO 35 

3BOOT036 

SBOOTO 37 

SBOOTO 38 

SBOOT039 

SBOOTO 40 

SBOOT041 

BBOOT042 

SBOOT043 

SBOOT044 

SB00T045 

SB0OT046 

SBOOT047 

SBOOT048 

SBOOT049 

SROOTOSO 

NBOQT051 

SBOOTO 5 2 

SBOOTO 53 

HHOOT054 

NBOOT055 

SBOOT056 

NBOOT057 

SBOOT058 

SBOOT059 

SHO0T060 

NBOOT061 


8 X{K)=A(K) 
HETORH 
BAD 


■ICOT062 

I1OOT063 

RtOOTOM 


c#  ■»  % 


TABLE  E-l 


Changes  in  NROOT  to  Convert 
to  Single  Precision  Arithmetic 


Card  Number 
002 
003 
016 
016 


change  all 


Double 
REAL  *8 
D's 
DSQRT 
DABS 


Single 

REAL 

to  E's 

SQRT 
ABS 
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APPENDIX  F 


ETFEN 


Subrout :ne  Listing 
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SOBROOTIRE  EIGER  (A, B ,11,11V,  HA) 

BBU*8  A (HA)  f R (3t)  ,AR0RB,ARRBX,THB,X,T,SIRX,SIRX2,C0SX,C0SX2, 
1SIRCS, BARGE, ZEBO,OHE , P5,TRO 
DtTA  ZERO/O. DO/, ORB/ 1. DO/, P5/. 5DO/,TIO/2.DO/ 

1 BARGE* 1.0D-12 
IF(BT-I)  2,5,2 

2 IQ=-R 

DO  4 J*1  ,M 
IQ*IQ»R 
DO  4 1*1, R 
IJ*IQ+I 
R (IJ)  * ZEBO 
IE(I-J)  4,3,4 

3 B(IJ)*OHI 

4 CORTIROE 

5 tRORH*ZEBO 
DO  7 1*1,  H 
DO  7 J=I,R 
IP(I-J)  6,7,6 

6 IA*I> /2 

AROBB* ARORB*A (It) *A(IA) 

7 CORTIROE 
IF(AEOHB)  36,36,8 

8 AEOR8*DSQRT (TIO) *DSQBT ( AROBB) 

AHB8X*  AH C HH* BARGE/ FLO AT (R) 

IH  D*0 
THH« ARORB 

9 THB*THB/FLOAT{H) 

10  l*i 

11  H*L»1 

12  BQ*(B*B-H)/2 
LQ*(!.*L-l)/2 
ia*>n 

13  IFpilBi  (A(ia))-t.wB)  29,14,14 
:4  IRD’-t 

Ll*L  0 

X*P5*(A<U)-A(BB)) 

15  7*- A (LB) /DSQRT ( A (LB)  *A(LB)  ♦ X*!) 

TP  (X)  16,17,17 

16  Y*-T 

17  StRF-r/DSOHT(TRO*(ORE* (DSQRT (OHE-Y*T) ) ) ) 

SIRS2*SIRX*SIHX 

18  COSX-DSQBT (ORE-SIRX2) 

COSX2=COSX'*-uSX 
SIRCS  =SZRX*COSX 
ILQ*H* (1-1) 

IBQ*Ry  (B-1 ) 

DO  28  Is  1, R 
IQ=(I*I-I)/2 
IF(I-L)  19,26,19 

19  IF(I-B)  20,26,21 

20  IB*I+BQ 
GO  TO  22 

21  IB=B+IQ 

22  IF(I-L)  23,24,24 

23  Il=I+LQ 
GO  TO  25 

24  IL=l*IQ 

25  X=A(IL) ♦COSX-A(IB)  *SIHX 

A (IB)  = A (IL)  *SIHX  + A(I8)  *CCSX 


EIGER001 

EICBR002 

B2GBR003 

EIGBR004 

BIGBB005 

EIGBR006 

KXGER007 

BX6BI008 

BIGBR009 

BIGERO 10 

BIGER011 

BIGBRO 12 

BIGBIO 13 

BIGBRO 14 

BIGBRO IS 

BIGBRO 16 

BIGBRO 17 

BIGBRO 18 

IIGER019 

BIGBRO 20 

BIG2R021 

BIGBR022 

BIGBRO 23 

BIGBRO 24 

EIGBR025 

BISBR026 

BIGBRO 27 

BIGBR028 

KIGBR029 

BIGBRO 30 

B1GBR031 

EIGER032 

EIGER033 

EIGBR034 

EIGBR035 

BIGER036 

BIGBR037 

BIGBR038 

EIGIR039 

BIGBR040 

BIGBR041 

EIGBR042 

BIGBR043 

EIGEH044 

EIGER045 

EIGBR046 

BIGBR047 

EIGBH048 

BIGBR049 

BIGBR050 

EIGEH051 

FI6ER052 

EIGBR053 

EIGER054 

BIGER055 

BIGER056 

EIGBH057 

EIGBR058 

EIGEH059 

EIGBH060 

EIGER06 1 
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A(IL)*X 

BIGBB062 

26 

IF(BV-I)  27,28,27 

EIGBB063 

27 

ILB*ILQ>I 

BXGBB064 

IBB*IBQ*I 

BXGBB065 

X*R  (ILH)  •COSX-B(IBB)  *SIH3 

EIGSB066 

B (IBB) =B  (ILB ) *SIKX*B (IBR) *COSX 

BXGEH067 

8(IIR)>X 

EIGBB068 

29 

COBTXBOE 

EIGEB069 

X*TB0*A (IB) ♦SIBCS 

BX6BB070 

T*A(U)  •C0SX2+-X  (BB)  *SIBX2-X 

BXGBB071 

X*A(U)  *SIBX2* A (flfl)  *C0SX2*X 

BXGBB072 

A (LB)* (A  (LI) -A (HB) ) *SIHCS* A(1B) * (COSX2-SIHX2) 

BXGBB073 

A(LL)*T 

BXGII074 

A(flfl)  *X 

BIGBM075 

29 

IF  (B-B)  30,31,30 

BXGBR076 

30 

B*B*  1 

BXGXB077 

GO  TO  12 

BXGBB078 

31 

IF (L- (M-  1) ) 32,33,32 

BXGII079 

32 

L*L»1 

XIGBB080 

GO  TO  11 

BXGBI081 

33 

IF(IHD-I)  35,34,35 

8XGIB082 

34 

IND*0 

BXGXB083 

GO  TO  10 

EIG2B084 

35 

IF (THB-ABRBX)  36,36,9 

BXGBR085 

36 

IQ— B 

BXGBB086 

do  eo  i*i,r 

BXGBR087 

IQ*i  >*H 

BIGBB088 

LL*I*  (I*I-I)/2 

BISBR089 

JQ*B* (1-2) 

BXGBB090 

DO  40  J*I, 1 

BXGBB091 

JQ*JQ*B 

BIGBB092 

BB*Jt(J*J-0)/2 

BIGBB093 

IF  (A  (LL) -A (HB) ) 37.40,40 

BXGBB094 

37 

X*A(LL) 

BXGBB095 

A(IL)*A(BB) 

BXGBR096 

A (BB)  *X 

BXGBB097 

IF(BV-I)  38,40,38 

BXGBB098 

38 

DO  39  1, 1 

BXGBB099 

ILB*IQ*K 

BXGBRIOO 

IBB*JQ»K 

BIGEB101 

X=B(ILH) 

EIGER102 

B (ILR) *B  (IBB) 

EXGBR103 

39 

B (IBB)  *X 

EIGBB104 

40 

COBTIHOB 

EXGBB105 

RETORN 

EIGBB106 

BMT 

BIGBR107 

TABLE  F-l 


Card  Number 


Changes  in  EIGEN  to  Convert 
t£_Single  Precision  Arithmetic 


change  all 


Double 


REAL  *8 


1.0D-12 


DSQRT 

DSQPT 


Single 


1.0E-6 


DSQRT 

DSQRT 

DSQRT 

DSQRT 


